1. Информатика
  2. PASCAL Дан целочисленный массив

PASCAL Дан целочисленный массив из 20 элементов, из промежутка [-100; 50]. Напишите программу
позволяющую найти и вывести минимальное значение среди положительных элементов
массива, кратных 5 Если в исходном массиве нет элемента, значение которого положительно
и делится на 5, то вывести сообщение «Не найдено».

Картошка160 Картошка160    1   02.11.2020 11:20    0

Ответы
elizabeth0vasillenko elizabeth0vasillenko  02.12.2020 11:21

var  

i, answer: integer;

arr: array[-100..50] of integer;

begin

answer := -1;

for i:= 0 to 19 do

begin

 read(arr[i]);

 if ((arr[i] > 0) and (arr[i] mod 5 = 0) and (arr[i] > answer)) then answer := arr[i];

end;

   if answer = -1 then writeln('Не найдено')

   else writeln(answer);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alenazakhar2000al alenazakhar2000al  27.09.2019 16:01
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел кратных 7, оканчивающихся на 5. программа получает на вход количество последовательных...
Lubafili2017 Lubafili2017  27.09.2019 16:01
Мова квітів селам. що про неї можна розповісти? дуже потрібно...
kek22821 kek22821  01.10.2019 14:50
Найти количество совпадений. одни и теже совпадения дважды не считать (python) 7 file1 4 450 17 54 17 55 68 120 68 120 68 140 68 750 8 file2 4 500 17 54 18 110 68 14 68...
Елена09111 Елена09111  01.10.2019 14:50
С++ из множества целых чисел 1..100 выделить множество чисел на которые делится без остатка число 444. вывести это множество на экран....
XefforyGR XefforyGR  02.05.2020 07:59
Зробити форму html на iнформатику​...
karine228 karine228  09.08.2019 06:30
Задана матрица размером nxm. получить массив b, куда попадут все элементы исходного массива, которые будут меньше среднего арифметического....
ilyajdbda ilyajdbda  25.04.2020 10:17
Создайте целочисленный массив из 15 элементов с генератора случайных чисел с элементами от 0 до 9 и выведите его на экран. Замените в массиве значения тех элементов которые...
leka777166 leka777166  15.12.2020 10:17
Дан массив A(N). Найти количество четных элементов и сумму положительных элементов. Пример: 5 2 -4 3 5 -7 ответ: 2 10 напишите фастом...
димка185 димка185  15.12.2020 10:19
Рассмотрите программный код и определите Что будет выведено на экран в результате его использования s=кинорежиссер print(s[0:5]) носкиножир​...
АришкаКалмыкова АришкаКалмыкова  15.12.2020 10:19
Фигура служащая для обозначения выполнения действия в блок-схеме... а) параллелограммб) ромбв) прямоугольникг) овалпо быстрее...

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