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

Question

Информатика

Еняша

1 августа, 00:56

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

+5

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