Question

Заполнить массив из 15 элементов целыми числами с клавиатуры, и вывести на экран те элементы, у которых номер совпадает со значением
В паскале.

Answer 1

program zadacha;vars: array[1..15] of integer;i: integer;
beginfor i:=1 to 15 do read(s[i]);for i:=1 to 15 do beginif s[i]=i then beginwrite(s[i]:6, ' N ',i);end;end;end.