Предмет: Информатика,
автор: cheiz
дан массив A (20) заполнить его случайными целыми числами из [-10;20] вывести на экран найти минимальный элементы массива и сумму положительных чисел
Ответы
Автор ответа:
0
var
a: array [1..20] of integer;
i, min, s: integer;
begin
min:= 20;
s:= 0;
for i:= 1 to 20 do
begin
randomize;
a[i]:= random(30) - 10;
if a[i] < min then min:= a[i];
if a[i] > 0 then s:= s + a[i];
end;
writeln('Минимальный элемент: ', min);
writeln('Сумма положительных чисел: ', s);
end.
Похожие вопросы
Предмет: Французский язык,
автор: dashamurr05
Предмет: Қазақ тiлi,
автор: nursberdibek
Предмет: Қазақ тiлi,
автор: diastalgat1998
Предмет: Математика,
автор: Lenok123341
Предмет: Математика,
автор: Lenok123341