Регистрация
1010ВАДИМ
02.07.2020 05:24
Информатика
Есть ответ 👍

Кто шарит в информатике, постройте таблицу истинности. (фото ниже).

125
312
Посмотреть ответы 1

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

12unicorn12
12unicorn12
4,6(63 оценок)
//pascal var   a: array[1..5] of integer;   i: byte;   max: integer; begin writeln('заполнение массива.'); for i : = 1 to 5 do begin   write('a[',i,'] = '); readln(a[i]); end; max : = a[1]; for i : = 1 to 5 do   begin       if a[i] > max then max : = a[i];       write(a[i]: 4);   end; writeln; writeln('максимальный элемент в массиве = ', max);   readln; end. 

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