Вопрос по информатике:
Нужна программа на языке программирования Pascal.
Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 128).
1)Заполнить и записать матрицу.
2)Определит число элементов больших 18 и меньших 60. заменить их на 0.затем записать получившуюся матрицу.
3)Определить произведение главной диагонали и вывести эти элементы на экран.
4)Реализовать определение суммы элементов любого столбца.
Спасибо.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.08.2018 12:33
- Информатика
- remove_red_eye 2762
- thumb_up 7
Ответы и объяснения 1
Значит так...очередная нудная программа с простым алгоритмом.
Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.
program test;
uses crt;
var
arr:array[1..8,1..8] of integer;
i,j,cou,pr,s,sum:integer;
begin
clrscr;
randomize;
pr:=1;
s:=7;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
arr[i,j]:=random(127)+2;
write(arr[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 8 do
for j:=1 to 8 do
begin
if (arr[i,j]>18) and (arr[i,j]<60) then
begin
cou:=cou+1;
arr[i,j]:=0;
end;
if i=j then
begin
pr:=pr+arr[i,j];
write(arr[i,j],' ');
end;
if j=s then
sum:=sum+arr[i,j];
end;
writeln;writeln;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(arr[i,j],' ');
writeln;
end;
writeln;
writeln(cou);
writeln(pr);
writeln(sum);
readln;
end.
- 28.08.2018 01:33
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.