39.только спасибо не забудь поставить.
1- a
2- b
3- d
4- a
5- c
6- a
7- d
8- d
9- a
10- e
11- c
возможность отображения динамических процессов, интерактивность
Const N = 5;
Var m:array [1..N, 1..N] of integer; j,S,i:integer;
Begin
S:=0;
for i:=1 to N do
for j:=1 to N do begin
readln(m[i,j]); S:=S+m[i,j]; end;
writeln(S);
readln;
end.
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.