Помогите, пожалуйста, написать программу на языке Паскаль. Если можно, объясните , что за переменные там используются Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 64). 1)Заполнить и записать матрицу. 2)Определит ...
Помогите, пожалуйста, написать программу на языке Паскаль. Если можно, объясните , что за переменные там используются
Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 64).
1)Заполнить и записать матрицу.
2)Определит число элементов меньших 18 и больших 60,заменить их на 0,затем записать получившуюся матрицу.
3)Определить произведение главной диагонали и вывести эти элементы на экран.
4)Реализовать определение суммы элементов любого столбца.
Спасибо.
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..8,1..8] of integer;{матрица}
i,i1,b,sum,st:integer;{первые 2 переменные для циклов,b - для заполнения матрицы, sum - для нахождения суммы чисел}
begin
for i:=1 to 8 do begin
for i1:=1 to 8 do begin
b:=b+1;
if b mod 2 = 0 then a[i,i1]:=b else a[i,i1]:=b+1;
if a[i,i1] > 60 then write(0:3) else if a[i,i1] < 18 then write(0:3) else write(a[i,i1]:3);
end;
writeln;
end;
writeln('Главная диагональ');
sum:=1;
for i:=1 to 8 do begin
sum:=sum*a[i,i];
writeln(a[i,i]:i*2);
end;
writeln('Сумма - ',sum);
write('Введите номер столбца - ');
readln(st);
sum:=0;
for i:=1 to 8 do sum:=sum+a[i,st];
writeln('Сумма чисел этого столбца - ',sum);
end.
Не нашли ответ?
Похожие вопросы