var
a:array[0..9, 0..9]of integer;
i, j, s : integer;
begin
randomize;
for i:=0 to 9 do begin
for j:= 0 to 9 do begin
a[i,j]:= random(50);
write(a[i,j],' ')
end;
writeln();
end;
s:=0;
for i:=0 to 9 do
if a[i,9-i] mod 3 = 0 then
s:=s+a[i,9-i];
writeln(s)
end.
Объяснение:
var
a:array[0..9, 0..9]of integer;
i, j, s : integer;
begin
randomize;
for i:=0 to 9 do begin
for j:= 0 to 9 do begin
a[i,j]:= random(50);
write(a[i,j],' ')
end;
writeln();
end;
s:=0;
for i:=0 to 9 do
if a[i,9-i] mod 3 = 0 then
s:=s+a[i,9-i];
writeln(s)
end.
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))