в одномерном массиве А(10) найти значение и индекс наименьшего из положительных элементов
5-9 класс
|
uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
end.
Другие вопросы из категории
определение.5.....Виды файловых систем.6....Путь к файлу на диске(определение примеря)7.....Полное имя файла (определение,с примером) Ответьте пожалуйста очень над*на 1,4,5 вопрос необязательно)
На Паскале помогите написать
Дано целое число k (1<=k<=365). Определить каким днём недели
(понедельник,вторник,...,субботу или воскресенье) является k-й
день года,в котором 1 января:
а)понедельник
б)d-й день недели (если 1 января-понедельник,то d=1,если вторник -d =2,...,если воскресенье d=7).
Читайте также
Программа сделана правильно,но как только ее хочешь запустить там пишет "введите длину массива"какое число нужно вводить?
массива которые имеют четные значения и не делятся на 3