Регистрация
BlackElegant
04.01.2021 13:33
Информатика
Есть ответ 👍

Домашнее задание Каких известных художников Казахстана ты знаешь?
Найди информацию о них и запиши в тетрадь.
​

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

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

anas20041006
anas20041006
4,7(20 оценок)
Var   a : array [1..10000] of boolean;   n, i, k, d : integer; begin   read (n);   k : = 0;   for i : = 1 to n do   begin     read (d);     if not a[d] then     begin       a[d] : = true;       k : = k + 1;     end;   end;   writeln (k); end.

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