Массивы на Паскале

Задачи на обработку массивов

Виды задач

• Сумма элементов массива.
• Произведение элементов массива;
• Выбор элементов с заданным свойством;
• Номер элемента с заданным свойством;
• Замена элементов.

Дан массив А, состоящий из 10 чисел. Найти среднее арифметическое его элементов

Program srednee;

Var a: array[1..10] of real; i: integer; s ,sred: real;

Begin clrscr;

s:=0;

For i:=1 to 10 do

begin

write(‘a[‘,i,’]=’); readln (a[i]);

s:=s+a[i];

end;

sred:=s/n;

writeln(‘sred=‘,s); readkey

End.

Найти наименьший элемент массива из 10 чисел

Program min;

Var a: array[1..10] of real; i: integer; min: real;

Begin clrscr;

For i:=1 to 10 do

begin

write(‘a[‘,i,’]=’); readln (a[i]);

end;

min:=a[1];

For i:=2 to 10 do

If a[i]

Writeln(‘min= ‘,min); readkey

End.

Найти сумму элементов массива с четными номерами

Program sum shet;

Var a: array[1..10] of real; i: integer; s, sred: real;

Begin clrscr;

s:=0;

For i:=1 to 10 do

begin

write(‘a[‘,i,’]=’); readln (a[i]);

if i mod 2 = 0 then s:=s+a[i];

end;

writeln(‘s= ‘,s); readkey

End.

Домашнее задание

• Найти количество чётных элементов массива.