Составьте блок-схему и блок схему для подпрограммы (если она есть в коде). Также нужны комментарии с - id1818020320220609 от abduboriy2004 09.06.2022 16:23

Question

Информатика: Составьте блок-схему и блок схему для подпрограммы (если она есть в коде). Также нужны комментарии с разеснением действий по типу / и // #include iostream #include map using namespace std; void fill_map(map char, string &m) { m[ a ] = .- ; m[ b ] = -... ; m[ w ] = .-- ; m[ g ] = --. ; m[ d ] = -.. ; m[ e ] = . ; m[ v ] = ...- ; m[ z ] = --.. ; m[ i ] = .. ; m[ j ] = .--- ; m[ k ] = -.- ; m[ l ] = .-.. ; m[ m ] = -- ; m[ n ] = -. ; m[ o ] = --- ; m[ p ] = .--. ; m[ r ] = .-. ; m[ s ] = ... ;

abduboriy2004 · Accepted Answer

//Pascal ABC.NET v3.0 сборка 1111

//1
Var
ar:array[1..5] of integer;
min,i:integer;
begin
min:=2147483647;
for i:=1 to 5 do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
write('Min=',min);
end.

Пример ввода:
6
-6
3
4
5
Пример вывода:
Min=-6

//2

Var
ar:array[1..20] of integer;
i,s:integer;
begin;
randomize;
s:=0;
writeln('Array:');
for i:=1 to 20 do
begin;
ar[i]:=random(101);
write(ar[i]:4);
if ar[i] mod 7=0 then s:=s+ar[i];
end;
writeln;
write('Sum=',s);
end.

Пример работы программы:
Array:
13 23 70 67 0 82 16 66 48 54 46 99 100 75 48 33 1 88 9 73
Sum=70

MOGZ ответил