Кто может нарисовать Блок Схему к этой задачки procedure TForm1.Button1Click(Sender: TObject); var a:array[0..19] - id1187598620220104 от ruslananabok 04.01.2022 19:11

Question

Информатика: Кто может нарисовать Блок Схему к этой задачки procedure TForm1.Button1Click(Sender: TObject); var a:array[0..19] of real; i:integer; max,min:real; begin max:=-32000; min:=32000; for i:=0 to 19 do a[i]:=StrToInt(Memo1.lines[i]); for i:= 0 to 19 do begin if a[i] max then max:=a[i]; if a [i] end; edit1.text:=floatToStr(max); edit2.text:=floatToStr(min); end; end.

ruslananabok · Accepted Answer

1. Для цикла For есть решение выложенное выше от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
i, n, k: integer;
begin
i := 2;
readln(n);
while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
i, n, k: integer;
begin
i := 2;
readln(n);
repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
until i> n div 2;
writeln('наибольший делитель ', n, ' = ', k);
end.

MOGZ ответил