Паскаль
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;
S:=0;
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];
min:=a[1,1];
if a[i,j]<min then min:=a[i,j];
writeln('Минимальный элемент равен',min);
Поделитесь своими знаниями, ответьте на вопрос:
Задание 2. Напиши на языке программирования следующие математические выражения. q=(x^2 y+a+4)/(b-4) d=1/7 a^3 b-2ab^2 СОР
Паскаль
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.