Ответы на вопрос:
// pascalabc.net 3.0, сборка 1088 const n=30; var a: array[1..n] of integer; i,k: integer; begin randomize; writeln('*** исходный массив ***'); k: =0; for i: =1 to n do begin a[i]: =random(1001); write(a[i],' '); if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then inc(k) end; writeln; writeln('количество найденных элементов равно ',k) end. тестовое решение: *** исходный массив *** 503 187 764 452 351 819 339 940 681 369 938 874 639 212 633 825 983 830 121 801 889 36 479 14 357 382 631 8 402 61 количество найденных элементов равно 3
Популярно: Информатика
-
никтошшшников18.03.2021 01:37
-
1389570208465781257017.03.2020 13:25
-
gybshova23.01.2021 21:14
-
dyba200328.05.2023 07:57
-
Egorka00000000007.08.2020 18:03
-
lesivarshavska23.10.2020 12:06
-
ganievadiyana24.12.2022 07:35
-
JR12330.11.2022 19:18
-
Adzhisay02.05.2021 03:45
-
ЛориXD26.02.2021 11:48