Ольга Божеволова
Ученик
(154)
7 лет назад
Найти минимальный положительный из данных десяти ненулевых целочисленных элементов. Если требуемые элементы отсутствуют, то вывести 0.
не могли бы помочь?
1 Program min; - заголовок программы [1]
2 Var a:array[1..10] of integer - раздел описания переменных
i,min:integer;
3 begin- начало раздела операторов
4Writeln ('Введите 10 чисел ');- вывод текста на экран
5 for i:=1 to 10 do begin – начало цикла For
6 Writeln ('Значение ',i:1, элемент массива 'a[',i,']= '); - вывод текста на экран
7Readln (a[i]);- ввод значений массива
8 end; - конец цикла
9 int min =0;
10 for i:=0 to 10 do begin - начало цикла For
11 if a[i] < min then min:= a[i];
12 end;- конец цикла
13 writeln ('Минимальное положительное значение = ', min); - вывод полученного значения на экран
14 readln; - задержка экрана для просмотра результата
15 end. - конец программы
не могу найти ошибку