Ответы на вопрос:
uses crt; var a: array[1..50] of integer; i,n,k: integer; begin clrscr;
k: =0; write('введите количество элементов массива'); read(n); writeln('введите массив: '); for i: =1 to n do read(a[i]); write('номера элементов, кратных 3: '); for i: =1 to n do
if (a[i] mod 3=0) then begin k: =k+1; write(i,' '); end; if k=0 then write('таких элементов нет.'); end.
Популярно: Информатика
-
vika36voronezhskaya22.06.2022 10:34
-
отличник72211.05.2023 23:19
-
brzruchkovika25.03.2022 04:15
-
Wlig12325.08.2022 22:50
-
Wenros02.01.2023 13:26
-
BigBOSS228128.02.2023 05:10
-
aushatsy08.03.2022 22:01
-
sokol450025.08.2022 20:11
-
Эндирионэля30.11.2020 08:48
-
gigi2422.01.2021 00:17