Регистрация
Дарья99911
17.08.2020 20:35
Информатика
Есть ответ 👍

РЕБЯТ КТО ПОНИМАЕТ ОООЧЕНЬ НАДО

207
263
Посмотреть ответы 2

Ответы на вопрос:

vaierchik
vaierchik
4,8(51 оценок)
Переменные: d, int, int2, M
Типы: integer, real, char
dianafaizullin1
dianafaizullin1
4,4(39 оценок)
Program max; const   n = 20; var   a: array [1..n] of integer;   i, j, max: integer; begin   for i : = 1 to n do       readln(a[i]);   max : = 0;   j : = 0;   for i : = 1 to n do       if (a[i] div 100 > 0) and (a[i] div 1000 = 0) and (a[i] mod 9 < > 0)       then {число подходит}           if a[i] > max           then               begin                   max : = a[i];                   j : = 1; {для отслеживания наличия хотя бы одного числа}               end;   if j = 1   then       writeln('ответ: ', max)   else       writeln('не найдено'); end.

Популярно: Информатика