Pascal.Дан массив состоящий из n элементов нужно вывести квадрат нечетных чисел
Ответы на вопрос
Ответил kage1998
0
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.
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.
Ответил Dragon12345
0
В Pascal напиши к задаче подробные комментарии.
Новые вопросы
Қазақ тiлi,
2 года назад
Информатика,
2 года назад
Геометрия,
9 лет назад
Биология,
9 лет назад
Математика,
10 лет назад