//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,n,i,min,max:integer; begin min:=maxint; max:=-maxint; write('Число элементов последовательности '); readln(n); for i:=1 to n do begin a:=random(61)-30; if a>max then max:=a; if a<min then min:=a; write(a:4); end; writeln; if max<=(min+25) then writeln ('максимальное ',max ,' превышает минимальное ',min,' не более чем на 25') else writeln ('максимальное ',max ,' превышает минимальное ',min,' более чем на 25'); end.
Тест №1 Число элементов последовательности 3 -9 2 10 максимальное 10 превышает минимальное -9 не более чем на 25
Тест №2 Число элементов последовательности 5 10 -17 13 26 -2 максимальное 26 превышает минимальное -17 более чем на 25
Держи: begin var arr:array[1..30] of integer; var max1:=-1; var min2:=1; var max3:=-999999; for var i := 1 to 30 do readln(arr[i]); writeln(arr.JoinIntoString()); for var i := 1 to 30 do begin if (arr[i] >= 0) and (arr[i] > max1) and (arr[i] mod 2 = 0) then max1 := arr[i]; if (arr[i] < 0) and (arr[i] < min2) and (arr[i] mod 2 <> 0) then min2 := arr[i]; if (arr[i] mod 7 = 0) and (arr[i] > max3) then max3 := arr[i]; end; writeln('Максимальное среди четных положительных чисел:' + max1); writeln('Минимальное среди нечетных отрицательных чисел:' + min2); writeln('Максимальное среди чисел кратных 7:' + max3); end. ... Скажи, если надо объяснить ... Если не сложно нажми " " ;)
var a,n,i,min,max:integer;
begin
min:=maxint; max:=-maxint;
write('Число элементов последовательности ');
readln(n);
for i:=1 to n do begin
a:=random(61)-30;
if a>max then max:=a;
if a<min then min:=a;
write(a:4);
end;
writeln;
if max<=(min+25) then writeln ('максимальное ',max ,' превышает минимальное ',min,' не более чем на 25')
else writeln ('максимальное ',max ,' превышает минимальное ',min,' более чем на 25');
end.
Тест №1
Число элементов последовательности 3
-9 2 10
максимальное 10 превышает минимальное -9 не более чем на 25
Тест №2
Число элементов последовательности 5
10 -17 13 26 -2
максимальное 26 превышает минимальное -17 более чем на 25
begin
var arr:array[1..30] of integer; var max1:=-1;
var min2:=1;
var max3:=-999999;
for var i := 1 to 30 do readln(arr[i]);
writeln(arr.JoinIntoString());
for var i := 1 to 30 do
begin
if (arr[i] >= 0) and (arr[i] > max1) and (arr[i] mod 2 = 0) then max1 := arr[i];
if (arr[i] < 0) and (arr[i] < min2) and (arr[i] mod 2 <> 0) then min2 := arr[i];
if (arr[i] mod 7 = 0) and (arr[i] > max3) then max3 := arr[i];
end;
writeln('Максимальное среди четных положительных чисел:' + max1);
writeln('Минимальное среди нечетных отрицательных чисел:' + min2);
writeln('Максимальное среди чисел кратных 7:' + max3);
end.
...
Скажи, если надо объяснить
...
Если не сложно нажми " " ;)