Дан массив из n целых чисел. найти номер первого элемента, который равен количеству элементов, кратных 3. составить программу алгоритма поиска в паскале
228
242
Ответы на вопрос:
Var n,i,x: integer; a: array[1..20]of integer; begin write('массив: '); for i: =1 to 20 do begin a[i]: =random(1,9); write(a[i],' '); if a[i] mod 3=0 then n: =n+1; end; writeln; for i: =20 downto 1 do if a[i]=n then x: =i; writeln('ответ: ',x) end.
Объём информации не связан с её содержанием. когда говорят об объёме информации, то имеют ввиду размер текста в алфавите, с которого она представлена.
Популярно: Информатика
-
Vergoon01.07.2021 19:56
-
XaMeJIuoH31.01.2021 10:08
-
pushkinaksenya08.02.2020 16:05
-
6a6yle4ka22.03.2021 01:15
-
led9891825.04.2021 08:14
-
дима287220.03.2020 09:44
-
lera19283746521.12.2022 23:10
-
Карина16200502.12.2022 11:54
-
labzinaveronika22.07.2020 04:10
-
NasTieZ3102.10.2022 09:34