Программа
обработки массива
uses crt;
var
(*Описание массива*)
a: array[1..100] of integer;
n: integer;
sum: real;
i: integer;
begin
write('Количество элементов: ');
readln(n);
(*Заполнение массива*)
for i := 1 to n do
a[i]:= random(10);
(*Печать массива*)
for i := 1 to n do
write(a[i]:3);
writeln;
(*Обработка массива*)
sum := 0;
for i := 1 to n do
sum := sum + a[i];
writeln('Сумма элементов: ', sum);
end.
Результат выполнения программы:
Результат выполнения программы:

Комментариев нет:
Отправить комментарий