Регистрация
Эliна
27.05.2020 23:30
Информатика
Есть ответ 👍

Составить заполнения массива случайными числами в диапазоне 0-100 и определяет количество четных элементов массива.​

182
283
Посмотреть ответы 1

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

Vadim12045683777779
Vadim12045683777779
4,5(50 оценок)
Var    a,b,c,max: integer; begin   write ('введите а,b,c через пробел: ');   readln (a,b,c);   if a> b      then       if a> c          then begin max: =a; a: =-a end         else begin max: =c; c: =-c end     else       if b> c          then begin max: =b; b: =-b end         else begin max: =c; c: =-c end;         writeln;   writeln ('max = ',max);   writeln ('a = ',a,', b = ',b,', c = ',c); end. пример: введите а,b,c через пробел: -5 -2 -4 max = -2 a = -5, b = 2, c = -4

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