Pascal. Дан массив состоящий из n элементов нужно вывести квадрат нечетных чисел

Question

Информатика

Кирилична

21 октября, 00:09

Pascal. Дан массив состоящий из n элементов нужно вывести квадрат нечетных чисел

+1

Ответы (1)

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

Козьма · Answer 1

Program gt;

var a:array[1 ... 100]of integer;

n, i:integer;

begin

readln (n) ;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

if (a[i] mod 2=1) then writeln (sqr (a[i])) ;

end.