Const n=4; Var x:array [1..n,1..n] of integer; s,i,j:integer; begin randomize; for i:=1 to n do begin for j:=1 to n do begin x[i,j] := random(100); write(x[i,j]:6); end; writeln; end; s:=0;for i:=1 to n do for j:=1 to n do if i<=j then s:=s+x[i,j]; writeln('s=',s); end.
Алг а1 нач вещ первое, второе ввод первое, второе вывод первое/второе кон
Тестовое решение: >> 01:12:23 - Новая программа* - Выполнение начато 16.5 3 5.5 >> 01:12:34 - Новая программа* - Выполнение завершено
алг а2 нач цел число1, число2, число3, произведение ввод число1, число2, число3 произведение:= число1*число2*число3 если произведение <50 то вывод 10*число1,", ",10*число2,", ",10*число3 иначе вывод произведение все кон
Тестовое решение: >> 01:18:48 - Новая программа* - Выполнение начато 4 2 3 40, 20, 30 >> 01:18:59 - Новая программа* - Выполнение завершено
>> 01:20:19 - Новая программа* - Выполнение начато 5 6 7 210 >> 01:20:23 - Новая программа* - Выполнение завершено
Var x:array [1..n,1..n] of integer;
s,i,j:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
x[i,j] := random(100);
write(x[i,j]:6);
end;
writeln;
end;
s:=0;for i:=1 to n do
for j:=1 to n do
if i<=j then
s:=s+x[i,j];
writeln('s=',s);
end.