Ввести рандомный массив из 20 2у значных чисел, найти минимальный элемент, оканчивающийся на 0.
Ввести рандомный массив из 20 2у значных чисел, найти минимальный элемент, оканчивающийся на 0.
Гость
Ответ(ы) на вопрос:
Гостьprogram exs; var a: array [1..30] of integer; i, min, indMin : integer; begin min:=40; for i:= 1 to 30 do a[i]:=random(30); for i:= 1 to 30 do begin if a[i] < min then begin min:=a[i]; indMin:=i; end; end; write(a[i], ' ', indMin); end.
Гость// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,10,99); a.Println;
Writeln('min10=',a.Where(x->x mod 10=0).Min)
end.
Пример
73 14 50 76 47 38 42 76 29 96 22 95 90 12 36 47 11 46 20 58
min10=20
Не нашли ответ?
Похожие вопросы