Учеба и наука

<p>в одномерном массиве найти минимальный из положительных элементов и количест... - вопрос №159969

в одномерном массиве найти минимальный из положительных элементов и количество нулевых

декабрь 9, 2011 г.

Сообщить о нарушении

Всего ответов: 1

Лена

60-й в Технологиях

4.2 4 отзыва

uses crt;
var
count,min:integer;
i,n:integer;
var a:array[0..100] of integer;
begin
clrscr;
Write ('введите размерность массивов:');
Readln(n);
   for i:=1 to n do
   begin
     Readln (a[i]);
   end;

for i:=0 to n-1 do
begin
   min:=a[1];
   count:=0;
   if (a[i]>a[i+1]) then min:=a[i+1];
   if(a[i]=0) then inc(count);
end;

writeln('Минимальный элемент min =',min);
writeln('Количество нулевых элементов counter = ',count);
readln;
end.