Помогите составить блок-схему для программы:
program proced;
var i,N:integer;
A:array [1..255] of integer; B:array [1..255] of integer; C:array [1..255] of real;
procedure fun(x :integer);
var g:integer;
begin
for g:=1 to N do
begin
A[g]:=random(91)-43;
write(a[g]:7,'');
end;
writeln;
for g:=1 to N do
begin
B[g]:=random(88)-36;
write(B[g]:7,'');
end;
writeln;
end;
begin
write('Введите кол-во элементов массива N = ');
read(N);
fun(1);
for i:=1 to N do
begin
C[i]:=(A[i] + B[i]) / 2;
write(C[i]:7:1);
end;
end.
Ответы
Ответ дал:
2
Ответ:
Недостающие символы для ответа
Объяснение:
Приложения:
![](https://st.uroker.com/files/d46/d4603630173a3a520b4eab18ef4ffddb.png)
![](https://st.uroker.com/files/759/759aea88a5b24f5caca3221c63508bf0.png)
gavr200620061131:
Объясни, почему они разделены на 2 блок схемы)
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад