ОЧЕНЬ СРОЧНО НУЖНО, ПОЖАЛУЙСТА, ДАМ ЧЕСТНЫ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.
Пожалуйста
Ответы
Ответ дал:
1
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.
dmitrijafonchi:
Слушай, это полный ответ? То есть вставлять тут ничего не надо?
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад