Question

Написать программы (язык Паскаль) :
1) ввести массив целых чисел из 10 элементов с клавиатуры, найти минимальный элемент;
2) в аналогичном массиве найти количество чисел, кратных 4;
3) в аналогичном массиве найти сумму чисел, оканчивающихся на 2.

Answer 1

Ответ:

Задача 1:

var input: array [0..9] of integer;

   min, i: integer;

begin

for i:= 0 to 9 do

 Read(input[i]);

min:= input[0];

for i:= 1 to 9 do

 if (input[i] < min)

   then min:= input[i];

Write(min);

end.

Задача 2:

var input: array [0..9] of integer;

   count, i: integer;

begin

for i:= 0 to 9 do

 Read(input[i]);

count:= 0;

for i:= 0 to 9 do

 if (input[i] mod 4 = 0)

   then count:= count + 1;

Write(count);

end.

Задача 3:

var input: array [0..9] of integer;

   sum, i: integer;

begin

for i:= 0 to 9 do

 Read(input[i]);

sum:= 0;

for i:= 0 to 9 do

 if (input[i] mod 10 = 2)

   then sum:= sum + input[i];

Write(sum);

end.

Объяснение: