PROFIT?
program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[i]:=random(100);
writeln('Element #',i,': ',mas[i]);
end;
writeln;
for i:=1 to 20 do if mas[i] > max then max:=mas[i];
writeln('MAX: ',max);
min:=max;
for i:=1 to 20 do if mas[i] < min then min:=mas[i];
writeln('MIN: ',min);
writeln;
for i:=1 to 20 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.
Картинка
Объяснение:
На схеме цикл:
1) у = 2 * х - вычисляет у
2) выводит на экран значения х и у
3) х = х+1 - увеличивает значение х на 1
4) х <= 0 - проверяет условие (если да, то начинается сначала)
x = -5
y = 2 * -5 = -10
x = -5 y = -10
-4 <= 0 (да)
y = 2 * -4 = -8
x = -4 y = -8
-3 <= 0 (да)
y = 2 * -3 = -6
x = -3 y = -6
-2 <= 0 (да)
y = 2 * -2 = -4
x = -2 y = -4
-1 <= 0 (да)
y = 2 * -1 = -2
x = -1 y = -2
0 <= 0 (да)
y = 2 * 0 = 0
x = 0 y = 0
1 <= 0 (нет)
