Дан массив А из 20 элементов. Найти сумму элементов массива. Результат вывести на печать .
на языке бейсика. если можно полное решение...

1

Ответы и объяснения

2013-05-14T15:00:07+00:00

program summa;

uses Crt;

const

   n = 20;

var A: array[1..n] of integer;

s: integer;

i: integer;

begin

ClrScr;

randomize; {запускаем генератор случайных чисел}

FOR I:=1 to n do

A[i]:=random(20);

FOR I:=1 to n do

begin

Write (A[i]);

Write(' ');

end;

s:=0;

FOR I:=1 to n do

S:=S+A[i];

WriteLn;

WriteLn ('Сумма чисел: ', s);

end.