Как это делать сам хз вообще ад какой то
Начало (овал)
Ввод данных (параллелограмм)
Цикл (ромб)
Вычисления (прямоугольник)
Вывод данных (параллелограмм)
конец (овал)
Program BP_Sasde;
Uses crt;
Var a:array[1..20] Of integer;
imax,imin,i:integer;
begin
Clrscr;
imin:=20;imax:=0;
for i:=1 to 20 do begin
a[i]:=random(1,20);
if a[i]>imax then imax:=a[i] else imin:=a[i];
writeln(a[i]);
end;
writeln('максимум = ',imax,' а минимум = ',imin);
end.
Ответ:
Windows 10 or Linux
Объяснение:
Немного не понял ваш вопрос