Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Синай
24.02.2022, 06:40
Информатика

Дан массив из N целых чисел. Найти номер первого элемента, который равен количеству элементов, кратных

3.Составить программу АЛГОРИТМА ПОИСКА в Паскале
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Компьютерный кот
program n1; var a:array[1..1000] of integer; i,n,k:integer; begin readln(n); for i:=1 to n do read(a[i]); k:=0; for i:=1 to n do if a[i] mod 3=0 then k:=k+1; i:=1; while (i<=n) and (a[i] <> k) do i:=i+1; if i>n then writeln('NO') else writeln(i); end.