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.

Объяснение:

Answer 2

Программа на языке Паскаль для решения задачи

program ArrayOperations;

var
  arr: array[1..10] of Integer;
  i, minElement, countDivisibleBy4, sumEndingWith2: Integer;

begin
  // Ввод массива целых чисел с клавиатуры
  for i := 1 to 10 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

// Поиск минимального элемента
  minElement := arr[1];
  for i := 2 to 10 do
  begin
    if arr[i] < minElement then
      minElement := arr[i];
  end;
  WriteLn('Минимальный элемент: ', minElement);

// Подсчет количества чисел, кратных 4
  countDivisibleBy4 := 0;
  for i := 1 to 10 do
  begin
    if arr[i] mod 4 = 0 then
      countDivisibleBy4 := countDivisibleBy4 + 1;
  end;
  WriteLn('Количество чисел, кратных 4: ', countDivisibleBy4);

// Вычисление суммы чисел, оканчивающихся на 2
  sumEndingWith2 := 0;
  for i := 1 to 10 do
  begin
    if arr[i] mod 10 = 2 then
      sumEndingWith2 := sumEndingWith2 + arr[i];
  end;
  WriteLn('Сумма чисел, оканчивающихся на 2: ', sumEndingWith2);

ReadLn;
end.

Описание программы

Данная программа на языке Паскаль решает следующие задачи:

1. Ввод массива целых чисел из 10 элементов с клавиатуры и нахождение минимального элемента. 2. В аналогичном массиве подсчет количества чисел, кратных 4. 3. В аналогичном массиве вычисление суммы чисел, оканчивающихся на 2.

Объяснение программы

1. Сначала объявляется массив `arr` из 10 элементов типа `Integer`, а также переменные `i`, `minElement`, `countDivisibleBy4` и `sumEndingWith2`. 2. Затем происходит ввод массива целых чисел с клавиатуры с помощью цикла `for`. 3. Д