9.1. Работа с массивами

Программа обработки массива
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.

Результат выполнения программы:





1. Демонстрация решения задач

Программы, наглядно демонстрирующие решение задач опубликовал
А.С. Башлаков на портале http://www.klyaksa.net/htm/kopilka/pascaldemo/index.htm (запуск в IE)
Можно скачать.


Опросные листы Графика

До заполнения опросных листов выполните Задания Компьютерная графика


Компьютерная графика опросный лист

Перед началом работы с опросными листами создайте для себя их копии!



Перед началом работы с опросными листами создайте для себя их копии!


Задание с открытым ответом на основе К.Полякова