Заполнить массив из 15 элементов целыми числами с клавиатуры, и вывести на экран те элементы, у которых номер совпадает со значением В паскале.
Заполнить массив из 15 элементов целыми числами с клавиатуры, и вывести на экран те элементы, у которых номер совпадает со значением
В паскале.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы