Заполнить массив из 10 элементов с клавиатуры целыми числами. найдите индексы элементов, больше 5 (pascal)

137

268

Посмотреть ответы 2

Ответы на вопрос:

Arina200531

Информатика

4,4(49 оценок)

Var a: array[1..10] of integer; i,c: integer; begin for i: = 1 to 10 do begin write('введите ',i,' - ый элемент массива '); readln(a[i]); end; write('индексы элементов, больших 5 - ('); for i: = 1 to 10 do if a[i]> 5 then begin write(i,' '); c: =1; end; if c=0 then write('таких нет)') else write(')'); end.