<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin var y:=Range(2,36,2).Select(i->i*i).ToArray; y.Println end.
<u>Результат</u>
4 16 36 64 100 144 196 256 324 400 484 576 676 784 900 1024 1156 1296
Исландия
Ирландия
Новая Зиландия
<span>Шотландия
</span><span>Голландия</span>
Электронно-вычислительная машинка, возможно имеется в виду компьютер
Ответ:
var a:array [1..14] of real;
i:integer;
s:real;
begin
s:=0;
write('Массив: ');
for i:=1 to 14 do
begin
a[i]:=random()+random(3);
write(a[i]:0:3,' ');
s:=s+a[i]
end;
writeln;
write('Сумма чисел равна ',s:0:3)
end.