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

Question

Информатика

Томуля

5 июня, 20:56

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

+2

Ответы (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.