Выполнение арифметических действий над элементами массива

Выполнение арифметических действий над элементами массива

Повторим

Multiple Choice

Выберите правильное описание массива :

• var <A>: array [1..30] of integer;

• var of <D>: array [1..30] of string;

Multiple Select

Выберите правильные обращения к элементу массива:

• a[3]

• T[i]

• S[n-1]

• k[3-1]

• J[1..30]

Multiple Choice

Можно ли использовать массивы в операциях присваивания?

• Да

• Нет

Multiple Select

В каких случаях команда присваивая массивов a:= b; недопустима ?

• var a: array[1..20] of string;

  b: array [1..20] of string;

• var a: array[1..20] of integer;

  b: array [1..25] of integer;

• var a: array[1..20] of string;

  b: array [1..20] of integer;

• var a,b: array [1..31] of real;

Multiple Select

Укажите пример, в котором реализуется вывод элементов массива в обратном порядке

• var a: array[1..20] of integer;

  begin

  writeln('vvedite 20 chisel');

  for var i:=n downto 1 do

  readln(a[i])

  write(a[i], ' ');

• var a: array[1..20] of integer;

  begin

  writeln('vvedite 20 chisel');

  for var i:=n 1 do

  readln(a[i])

  write(a[i], ' ');

Выполнение арифметических действий над элементами массива

1.Вычисление сумм и произведений элементов массива

Операции, выполняемые с элементами массива, соответствуют операциям, которые выполняются над базовым типом элементов массива.

• для элементов массива с типом integer допустимы операции +, -, *, div, mod

• для элементов массива типа real допустимы операции +, -, *, /

Задача

Написать программу, которая выводит на экран массив из 15 случайных чисел в интервале от 1 до 25, а затем выводит на экран все нечетные элементы массива и их количество.

Реализация:

Исходные данные: массив а, количество нечетных элементов к

Алгоритм решения задачи:

1.Ввод исходных данных

2.Генерация массива.

3.определение начального значения количества нечетных элементов(к:=0)

3.Вывод результата

Код программы

program massiv;

var a: array [1..15] of integer;

k:integer;

begin

writeln ('Massiv: ');

for var i:= 1 to 15 do

begin

a[i]:= random(25) + 1;

writeln (a[i], ' ');

end;

writeln ('Nechetnie elementi massiva: ');

k:=0;

for var i:=1 to 15 do

if a[i] mod 2 <> 0 then

begin

k:=k+1;

writeln (a[i], ' ');

end;

writeln(' kolichestvo nechetnih elementov', k);

end.

Задача 2

Написать программу, которая будет находить сумму и произведение элементов одномерного массива.

Реализация

• Исходные данные: массив а

• количество элементов к.

• s-сумма элементов массива, p-произведение элементов массива. Алгоритм решения задачи:

  1.Ввод исходных данных с клавиатуры

  2.Определение начального значения для суммы(s:=0) и для произведения (p:=1)

  3.В цикле добавляем очередной элемент массива к сумме и к произведению.

• 4 . вывод результатов

Код программы

Program sp;

var a:array [1..20] of integer;

k, s, p: integer;

begin

write(' Vvedite k= ');

readln(k);

writeln('vvodite elementi');

for var i:=1 to k do

read(a[i]);

s:=0;

p:=1;

for var i:=1 to k do

begin

s:=s+a[i];

p:=p*a[i];

end;

writeln('Summa= ', s);

writeln('Proizvedenie= ', p);

end.