Дан массив на 10 целых чисел. Заполняется с клавиатуры числами от 1 до 9. Определить строки в которых есть 5

Question

Информатика

Еликонида

4 января, 19:18

Дан массив на 10 целых чисел. Заполняется с клавиатуры числами от 1 до 9. Определить строки в которых есть 5

+3

Ответы (1)

Знаете ответ на вопрос?

Маюня · Answer 1

Var A: array [1 ... 10] of integer; i, b: integer; begin for i:=1 to 10 do readln (A[i]) ; for i:=1 to 10 do begin if A[i]=5 then writeln (i,' Строка') ; end; end.