Создать список из 20 случайных целых чисел в диапазоне [2; 5], найти и вывести индекс последней тройки, считая, что как минимум одна тройка в списке есть.

154

187

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

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

maks24719

Информатика

4,7(16 оценок)

Program task1; var n: real; begin: read(n); if n > 0 then writeln('положительное'); if n < 0 then write('отрицательное'); end. programm task2; var a, b, c, positives: integer; begin: if a > 0 then positives: =positives+1; if b > 0 then positives: =positives+1; if c > 0 then positives: =positives+1; writeln('положительных: ', positives); end. program task3; var n: integer; begin: read(n); if (n mod 2) > 0 then writeln('не чётное'); else writeln('чётное'); end.