Ответы на вопрос:
// pascal var a: array [1..16] of integer; i: integer; b: boolean; begin randomize; for i : = 1 to 16 do a[i] : = random(-20, 20); for i : = 1 to 16 do if a[i] = 0 then begin if b then write(', '); write(i, '-й '); b : = true; end; if b then writeln('элемент(ы) равен(ны) нулю') else writeln('в массиве нету элементов, равных нулю.'); end.
Популярно: Информатика
-
КoТuK02.03.2020 22:07
-
alesyabogun13520.08.2021 12:58
-
WhiteBurn13.03.2020 21:35
-
Айгуль1979178828.05.2023 06:29
-
iwanttobelllllive19.03.2023 15:11
-
ник443013.02.2023 02:57
-
Алина11311120.02.2023 20:48
-
poprop34317.10.2020 20:22
-
maximt02521.02.2021 21:41
-
ЯУмницаРаЗуМнИцА28.04.2022 01:27