Ответы на вопрос:
program massiv;
const n=25; //изменения к первому условию
var a: array [1..n] of integer; //изменения к первому условию
s,i integer;
begin
writeln (‘ исходный массив.‘);
for i: = 1 to n do
begin
a [i] : = random (30); //изменения к второму условию
write (‘a[‘i'] =', a[i], '');
end;
s: =0;
for i: = 1 to n do
s: = s+(a[i]*a[i]); //изменения к 3 условию
writeln (‘ сумма всех элементов массива s=‘, s);
end.
Популярно: Информатика
-
настясердечкотв218.11.2020 14:37
-
lilofun26.12.2020 19:17
-
max43807324.08.2020 22:35
-
поолра13.10.2021 03:55
-
AKA111117329.10.2021 05:19
-
shornikauvladi12.09.2022 10:11
-
Lovecoffe77704.03.2022 05:10
-
vfvf230410.11.2022 08:58
-
eleonora130620018.01.2022 07:04
-
QWERTY12345P30.01.2020 00:27