в одномерном массиве из 10 элементов вычислить сумму тех элементов,которые меньше заданного x.Заменить все нечетные их квадратами

Ответ:

var

a:array[1..10]of integer;

i,x,s:integer;

begin

read(x);

for i:=1 to 10 do

begin

readln(a[i]);

if a[i] mod 2<>0 then a[i]:=a[i]*a[i];

if a[i]<x then s:=s+a[i];

end;

write(s);

end.

Объяснение: