Pascalabc. объединить 3 программы. 1. program - вопрос №969007831120 от konuj 14.02.2020 13:22

Question

Информатика: 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.

konuj · Answer

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.