Pascal 1. напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. программа получает на

Question

Информатика: Pascal 1. напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число — сумму чисел, кратных 5. 2. напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на

lakatoshnika1 · Answer

Всё напишу в объяснении.Объяснение:1) Program Ex1;var  n, a, i, sum : integer;begin  sum := 0; // обнуляем счетчик суммирования  read(n);  // вводим кол-во чисел  for i := 0 to n do    begin    read(a); // считываем эти числа    if (a mod 5 = 0) then sum := sum + a; // если число кратно 5, то добавляем его к сумме    end;  writeln(sum); // выводим сумму.end.2) Program Ex2;var  n, a, i, min: integer;begin  min := 30000;  read(n);  // вводим кол-во чисел  for i := 0 to n do    begin    read(a); //...

Популярные вопросы