Уроки информатики - Арифметические действия над элементами массива

Арифметические действия над элементами массива

Пример.

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [2; 7], и вычисляет произведение нечетных чисел.

Program Primer7_3;

Uses crt;

Var A: array[1..7] of integer;

i, P: integer;

Begin

for i:=1 to 7 do

A[i]:=random(6)+2; {Формирование массива }

P:=1;

for i:=1 to 7 do

if A[i] mod 2 = 1 then {Поиск нечетных чисел}

P:=P*A[i]; {Вычисление произведения}

for i:=1 to 7 do

write(A[i]:4); {Форматный вывод чисел массива в строку}

writeln;writeln('Произведение нечетных чисел = ',P); {Вывод произведения}

End.

Задания:

Задание 1

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: а) среднее арифметическое нечетных чисел; На экран выводятся исходные значения и результаты вычислений.

Скопируйте текст программы 1 .
Расставьте недостающие разделители между командами. Поставьте комментарии к тексту программы.
Проверьте работоспособность программы.
Сохраните программу в файле с именем по образцу 9Б_ФИ_Pgr_7_1.pas. (Б - буква класса, ФИ - фамилия и имя).

Программа 1

Usescrt;Varm:array[1..40]ofinteger;i,n,sum:integer;sred:real;BeginRandomize;fori:=1to40dom[i]:=random(40);fori:=1to40doifm[i]mod2=1thenbeginsum:=sum+m[i];n:=n+1;end;sred:=sum/n;Writeln('Исходныймассив:');fori:=1tondowrite(m[i]:4);Writeln;Writeln('среднееарифметическоенечетныхчисел=',sred:8:3);End.

Задание 2

Измените текст программы 1 для получения решения задачи 1.

Сохраните программу в файле с именем по образцу 9Б_ФИ_Prg_7_2.pas.

Задача 1

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:

а) среднее арифметическое нечетных чисел;

б) сумму чисел, не превышающих 10;

в) сумму чисел, кратных 3.

На экран выводятся исходные значения и результаты вычислений.