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

Question

Информатика

Мишута

31 марта, 01:53

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

+4

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