Pascal.Дан массив состоящий из n элементов нужно вывести квадрат нечетных чисел
Answers & Comments
kage1998
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.
3 votes Thanks 2
Dragon12345
В Pascal напиши к задаче подробные комментарии.
Answers & Comments
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.