составить блок-схему по программе! program zadac;

var z,N:integer;

A:array [1..250] of integer; B:array [1..250] of integer; C:array [1..250] of real;

procedure funс(x:integer);

var j:integer;

begin

for j:=1 to N do

begin

A[j]:=random(91)-43;

write(a[j]:5,'');

end;

writeln;

for j:=1 to N do

begin

B[j]:=random(88)-36;

write(B[j]:5,'');

end;

writeln;

end;

begin

write('Введите кол-во элементов массива N = ');

read(N);

funс(1);

for z:=1 to N do

begin

C[z]:=(A[z]+B[z])/2;

write(C[z]:5:1);

end; end.

Андрей3482    3   04.03.2021 21:45    1