Составьте программу ввода с клавиатуры элементов массива a [1..10] и вывода ** экран...

Question

Составьте программу ввода с клавиатуры элементов массива a [1..10] и вывода на экран элементов,значения которых являются квадратами целых чисел.СРОЧНООО!!!!

Answer 1

Текст программы на языке Паскаль:

program _1;
const N=10;
var i: integer;
a: array[1..N] of integer;
begin
for i:=1 to N do begin
readln(a[i]);
a[i]:=a[i]*a[i];
end;
for i:=1 to N do begin
writeln(a[i]);
end;
end.

Comments

Решишь ?

---

Уже сделал

---

))

---

сейчас вопрос один есть)

---

по команле

---

if (a[i] mod 2=0) and (i mod 2=0) then

---

что за команда?

---

это проверка элементов по условиям: чтобы элемент стоял на четном месте (i mod 2=0) и чтобы сам элемент был четным and (a[i] mod 2 = 0).

---

спасибо)

---

пожалуйста