Регистрация
Deer22
12.11.2020 02:01
Информатика
Есть ответ 👍

олимпиада по информатике 1 класс ​

181
449
Посмотреть ответы 2

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

775645
775645
4,6(80 оценок)

Клюв.....................

Tw1mHero
Tw1mHero
4,4(90 оценок)
Var  a: array [1..100] of integer;   i, n, k: integer; begin   writeln('введите количество элементов массива');   readln(n);   for i : = 1 to n do     begin     a[i] : = 1 + random(10);     writeln('a[', i, ']=', a[i]: 3);     if a[i] > 7 then a[i] : = 7;     if a[i] = 7 then inc(k);   end;   writeln('всего заменено ', k, ' элементов массива');   readln end.

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