Помогите!!!Людиии!!!
1. Дан массив из 10 элементов. Напечатать Все неотрицательные элементы массива.
2. Дан массив из 10 элементов. Определить Минимальный элемент массива.
1. Дан массив из 10 элементов. Напечатать Все неотрицательные элементы массива.
2. Дан массив из 10 элементов. Определить Минимальный элемент массива.
More Questions From This User See All
Answers & Comments
a:array[1..10] of integer;
i:integer;
begin
writeln('Вводите через Enter элементы массива:');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>=0 then write(a[i]:4);
end.
====================================
var
a:array[1..10] of integer;
i, min:integer;
begin
writeln('Вводите через Enter элементы массива:');
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln('Min = ',min);
end.