Программа
обработки массива
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.
Результат выполнения программы:
Результат выполнения программы:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8-IN-tkV6jehCo1RPbkLLaI_ms90Xx5vD3wAMtNkMuavGT1og6UEUXOLH3Y1m-qcE71MLpYzNHKc2fU59gwC9QGKWoCRX1OxDRk0PMNAvGErPZxQvT3jlUaHe2PsgJjz0cTJuhw2XCOH6/s640/111111111111.jpg)
Комментариев нет:
Отправить комментарий