Одномерные массивы целых чисел. Алгоритмизация и программирование

Слайд 2

Задание

1. Вычислить наименьший элемент массива, состоящего из 15 элементов, заполненного случайными числами

Задание 1. Вычислить наименьший элемент массива, состоящего из 15 элементов, заполненного случайными
из промежутка от 10 до 50.
program  z_1;
Var i, min: integer;
a: array[1...15] of integer;
Begin
randomize;
for i:=1 to 15 do a[i]:=random(40)+10;
for i:=1 to 15 do write (a[i],' ');
min := a[1];
for i := 2 to 15 do
if a[i] < min then
min := a[i];
writeln(min)
End.

Слайд 3

Вопросы и задания

2. Написать программу, вычисляющую сумму и количество положительных элементом массива,

Вопросы и задания 2. Написать программу, вычисляющую сумму и количество положительных элементом
заполненных случайными числами от -10 до 10. В массиве 8 элементов.
program  z_2;
Var i, k, s: integer;
a: array[1..8] of integer;
Begin
randomize;
for i:=1 to 8 do a[i]:=random(20)-10;
for i:=1 to 8 do write (a[i],' ');
k :=0;
s :=0;
for i := 1 to 8 do
if a[i] > 0 then
begin
k := k+1;
s := s+a[i]
end;
writeln('Количество положительных элементов', k);
writeln('Сумма положительных элементов',s)
End.

Слайд 4

Вопросы и задания

3. Написать программу, вычисляющую количество и сумму элементов одномерного массива

Вопросы и задания 3. Написать программу, вычисляющую количество и сумму элементов одномерного
кратных четырем. Массив заполнен 12 случайными целыми числами из диапазона от 0 до 40.
Слова для справки: mod – получение целого остатка деления.
Например, k: = 7 mod 2. Результат: k=1.

k :=0;
s :=0;
for i := 1 to 10 do
if a[i] mod 4 = 0 then
begin
k := k+1;
s := s+a[i]
end;