составить блок-схему по программе! 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.
240
488
Ответы на вопрос:
Популярно: Информатика
-
спасибо6001.09.2020 18:38
-
Maria12345678910120.08.2020 22:29
-
Bogdasha0610201517.03.2023 20:16
-
Ринат200621.12.2022 18:58
-
ChemistKNO329.06.2023 00:25
-
Zvezdo4kaKatty30.07.2020 18:42
-
bon33227.04.2022 04:02
-
gulitenko17.02.2022 12:17
-
RusSh3204.01.2020 20:12
-
56850005.03.2020 18:26