Написать программу, которая с клавиатуры запрашивает размер двумерного массива найти и вывести на экран сумму
значений элементов расположенных в левом верхнем углу матрицы и правом нижним? Pascal
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Фаня
Осталось понять что подразумевалось под словом угол.
Ну допустим что угол это одна самая угловая ячейка
var
a: array [1 ... 20,1 ... 20] of Integer;
i, j, n, sum:Integer;
begin
Writeln ('Введмте размер двумерного массива (2<=n<=20) ') ;
ReadLn (n) ;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i, j]:=Random (20) ;
Write (a[i, j]:3) ;
end;
WriteLn () ;
end;
sum:=a[1,1]+a[n, n];
WriteLn ('Сумма значений элементов расположенных в левом верхнем и в правом нижнем углах = ', sum) ;
end.=n<=20)>
Ну допустим что угол это одна самая угловая ячейка
var
a: array [1 ... 20,1 ... 20] of Integer;
i, j, n, sum:Integer;
begin
Writeln ('Введмте размер двумерного массива (2<=n<=20) ') ;
ReadLn (n) ;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i, j]:=Random (20) ;
Write (a[i, j]:3) ;
end;
WriteLn () ;
end;
sum:=a[1,1]+a[n, n];
WriteLn ('Сумма значений элементов расположенных в левом верхнем и в правом нижнем углах = ', sum) ;
end.=n<=20)>
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
