R010KMB

13.03.2021 13:46 •  Информатика

Var k,m: integer;
Arr: array [1..10] of integer;
begin
ArrИнформатика: учебник для 6 класса/ Л.Л.Босова, А.Ю Босова:= -3; ArrИнформатика. 6 класс: самостоятельные и контрольные работы/ Л.Л.Босова, А.Ю Босова:=5;
Arr[3]:= -4; Arr[4]:=2;
Arr[5]:=8; Arr[6]:= -2;
Arr[7]:=9; Arr[8]:=15;
Arr[9]:= -8; Arr[10]:= -7;
m:=1;
for k:=1 to 10 do
if Arr[k] - 2*m > -7 then
begin
m:=Arr[k];