Предмет: Информатика,
автор: hh2020
PASCAL
Дан целочисленный массив из 20 элементов, из промежутка [-100; 50]. Напишите программу
позволяющую найти и вывести минимальное значение среди положительных элементов
массива, кратных 5 Если в исходном массиве нет элемента, значение которого положительно
и делится на 5, то вывести сообщение «Не найдено».
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Русский язык,
автор: SVETIK475
Предмет: Другие предметы,
автор: polinapuma
Предмет: Русский язык,
автор: drburun
Предмет: Математика,
автор: saida1979
Предмет: Биология,
автор: pozharskaya11