Blue Colour Green Colour Orange Colour Red Colour

Государственное бюджетное общеобразовательное учреждение

средняя общеобразовательная школа № 356

с углубленным изучением немецкого и английского языков

Московского района Санкт-Петербурга

 

Несколько задач на одномерные массивы


Несколько задач на одномерные массивы

  1. Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы должны быть записаны в файле. Количество элементов вводится с клавиатуры.
  2. Найти сумму элементов одномерного массива, состоящего из n элементов. Элементы должны быть записаны в файле. Количество элементов вводится с клавиатуры.
  3. Найти среднее арифметическое элементов одномерного массива, состоящего из n элементов. Элементы должны быть записаны в файле. Количество элементов вводится с клавиатуры.
  4. Найти сумму тех элементов одномерного массива, которые стоят на чётных местах. Всего n элементов. Элементы должны быть записаны в файле. Количество элементов вводится с клавиатуры.

Пример программы, определяющей сумму квадратов элементов массива


program massiv_sc;
 var
    mas:array[1..100]of integer;
    sc,i,n,el:integer;
    getn:string[30];
    getf:text;
 begin
    writeln('Введите  имя  входного  файла  данных');
    readln(getn);
    assign(getf,getn);
    reset (getf);
    writeln('Введите количество элементов массива');readln(n);
    For i:=1 to n do
    begin 
    readln(getf,el);//Оператор readln В этом случае элементы массива должны в файле располагаться в столбик.
    sc := sc + el*el;
    end;
    writeln('Р е з у л ь т а т ы       р а с ч е т а');
    writeln('Сумма квадратов ',n,' элементов массива=',sc);
{
 Хотя в описании задан массив, в нашей задаче он не понадобился.
}
 end.