Пусть а множество целых чисел подмножеством а является множество... 1) цифр 2) знаков арифметических операций 3) чётных чисел 4) дробей
222
455
Ответы на вопрос:
Program z; var a: array [1..10] of integer; i,p: integer; begin p: =1; write('начальный массив: '); for i: =1 to 10 do begin a[i]: =random(-10,10); write(a[i]: 4); if (not(odd( and (a[i]< > 0) then p: =a[i]*p; end; writeln; write('полученный массив: '); for i: =1 to 10 do begin if a[i]< 0 then a[i]: =0; write(a[i]: 4); end; writeln; write('p = ',p); end.
Популярно: Информатика
-
Nuregre12.04.2023 10:09
-
Евабе13.06.2021 07:08
-
Mila151515.05.2020 07:35
-
сымбатым05.05.2021 07:38
-
GrankaleS20.01.2020 11:21
-
Давидкрyт25.09.2021 17:51
-
Черноболь66608.05.2021 03:25
-
Kvintsekstakkord24.04.2022 07:01
-
allan101207.04.2020 04:53
-
peskovavikulya02.11.2022 08:51