помогите написать программы)
1.дан массив 10 на 10,подсчитать сумму элементов расположенных на главной диагонали.
2.дан массив 10 на 10,найти наименьший элемент массива.
спасибо за помощь)
1.дан массив 10 на 10,подсчитать сумму элементов расположенных на главной диагонали.
2.дан массив 10 на 10,найти наименьший элемент массива.
спасибо за помощь)
More Questions From This User See All
Answers & Comments
Паскаль
1)Program abc; Uses crt;
var S:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
begin
S:=0;
For i:=1 to 10 do
For j:=1 to 10 do
if i=j then S:=S+a[i,j];
write('Сумма равна',S)
end.
2)
Program abc; Uses crt;
var min:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
min:=a[1,1];
For i:=1 to 10 do
For j:=1 to 10 do
if a[i,j]<min then min:=a[i,j];
writeln('Минимальный элемент равен',min);
end.