Дан одномерный массив натуральных чисел из 12 элементов найдите наименьшее из четных чисел, входящих в массив
Ответы
Ответ дал:
0
const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
Ответ дал:
0
const N = 5;
var a: array [1..N] of integer;
k,i:integer;
begin
k:=maxint;
for i:= 1 to N do
readln (a[i]);
for i:=1 to N do begin
if (i mod 2 = 0) and (a[i]<k) then
k:= a[i] end;
writeln (k);
end.
var a: array [1..N] of integer;
k,i:integer;
begin
k:=maxint;
for i:= 1 to N do
readln (a[i]);
for i:=1 to N do begin
if (i mod 2 = 0) and (a[i]<k) then
k:= a[i] end;
writeln (k);
end.
Ответ дал:
0
maxint? это что?
Ответ дал:
0
максимальное число в Integer
Ответ дал:
0
а просто max нельзя? Это уже ошибка, да?
Ответ дал:
0
просто макс константы в паскале нет
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад