Регистрация
snigireva00
08.08.2021 11:29
Информатика
Есть ответ 👍

Нужно, , честны0 100 за ответ! дана программа нахождения суммы всех элементов массива. изменить программу таким образом,чтобы:
a) массив состоял из 25 элементов целого типа;
b) значения элементов массива должны меняться в интервале от 1 до 30;
c) в результате выполнения программы должно быть найдено сумма квадратов всех элементов массива 


program massiv;
const n=10;
var a: array [1..n] of real;
s,i integer;
begin
writeln (‘ исходный массив.‘);
for i: = 1 to n do
begin 
a [ i] : = random (10);
write (‘a[‘i'] =', a[i], '');
end;
s: =0;
for i: = 1 to n do
s: = s+a[i];
writeln (‘ сумма всех элементов массива s=‘, s);
end.


203
388
Посмотреть ответы 2

Ответы на вопрос:

arinaplatonova1
arinaplatonova1
4,5(90 оценок)

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.

dinaras44
dinaras44
4,5(80 оценок)

Вариант 4 - 1 3 5.

Объяснение:

От 1 до 6 с шагом 2 - 1, 3, 5.

Популярно: Информатика