Пожалуйста помогите!
10-11 класс
|
Составьте программу вычисления в массиве А(10), заполненном случайными числами из интервала [-1;6], суммы всех элементов массива.
На языке Pascal (с выводом массива на экран для проверки правильности вычисления суммы элементов):
program main;
var
A: array [1..10] of shortint;
i: byte;
Sum: shortint;
begin
Sum:=0;
randomize;
for i:=1 to 10 do
begin
A[i]:=random(8)-1;
Sum:=Sum+A[i];
writeln("A[",i,"]=",A[i]);
end;
writeln("Sum=",Sum);
readln;
end.
Другие вопросы из категории
Читайте также
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с
срочно пожалуйста!!!!!!1
срочно!
"чка" (т е Леночка и т д) Нажмите альт и F11
ПОЖАЛУЙСТА ПОМОГИТЕ
и объясните как вы это сделали
п с имена придумывала не я, у нас пошлый учитель
Напишите программу на Паскаль которая даст ответ попадет точка в заштрихованную область или нет