Pascalabc. объединить 3 программы. 1. program ssee; var a: array [1..20] of integer; i, k: integer; begin for i: = 1 to 20 do a[i]: = random(51)-25; k: = 0; for i: = 1 to 20 do if a[i]< 0 then k: =k+1; writeln('кол-во отриц.эл.: ', k); for i: = 1 to 20 do write( a[i]: 4); end. 2. program fd; var a: array [1..20] of integer; i: integer; begin for i: = 1 to 20 do a[i]: = random (51)-25; for i: =1 to 20 do if a[i] mod 3=0 then writeln ('найден эл. a[', i, ']= '); for i: =1 to 20 do write(a[i]: 4); end. 3. program fd; var a: array [1..20] of integer; i: integer; begin for i: = 1 to 20 do a[i]: = random (51)-25; for i: =1 to 20 do if a[i] mod 3=0 then writeln ('найден эл. a[', i, ']= '); for i: =1 to 20 do write(a[i]: 4); end.
Program ssee;
var a:array [1..20] of integer;
i, k: integer;
begin
for i:= 1 to 20 do a[i]:= random(51)-25;
k:= 0;
for i:= 1 to 20 do
if a[i]<0 then k:=k+1;
writeln('Кол-во отриц.эл.: ', k);
for i:=1 to 20 do
if a[i] mod 3=0 then writeln ('Найден эл. A[', i, ']= ');
for i:=1 to 20 do write(a[i]:4);
end.