Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы должны быть записаны в файле. Количество элементов вводится с клавиатуры.
Найти сумму элементов одномерного массива, состоящего из n элементов. Элементы должны быть записаны в файле. Количество элементов вводится с клавиатуры.
Найти среднее арифметическое элементов одномерного массива, состоящего из n элементов. Элементы должны быть записаны в файле. Количество элементов вводится с клавиатуры.
Найти сумму тех элементов одномерного массива, которые стоят на чётных местах. Всего 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.