Решить в паскале ! ! дан массив. сформировать три массива, включив в первый положительные чётные элементы массива, во второй - положительные нечётные, в третий - все остальные.
186
464
Ответы на вопрос:
Const n = 20; var a, p0, p1, pa: array[1..n] of integer; i, ip0, ip1, ipa: integer; begin write('введите ', n, ' элементов массива: '); for i : = 1 to n do read(a[i]); writeln; ip0 : = 0; ip1 : = 0; ipa : = 0; for i : = 1 to n do if a[i] > 0 then if (a[i] mod 2) = 0 then begin ip0 : = ip0 + 1; p0[ip0] : = a[i] end else begin ip1 : = ip1 + 1; p1[ip1] : = a[i] end else begin ipa : = ipa + 1; pa[ipa] : = a[i] end; write('положительные четные: '); for i : = 1 to ip0 do write(p0[i]: 4); writeln; write('положительные нечетные: '); for i : = 1 to ip1 do write(p1[i]: 4); writeln; write('остальные: '); for i : = 1 to ipa do write(pa[i]: 4); writeln end. тестовое решение: введите 20 элементов массива: 3 8 -5 -8 3 0 4 12 -13 42 0 8 6 24 15 -9 47 18 53 -30 положительные четные: 8 4 12 42 8 6 24 18 положительные нечетные: 3 3 15 47 53 остальные: -5 -8 0 -13 0 -9 -30
Program al; const n=15; var a: array[1..n ] of integer; s1,s2,s3,p,i: integer; begin writeln('vvedite massiv='); for i: = 1 to n do readln(a[i]); s1: =0; s2: =0; s3: =0; p: =1; for i : = 1 to 5 do s1: =s1+a[i]; for i: = 6 to 10 do s2: =s2+a[i]; for i: = 11 to 15 do begin s3: = s3+a[i]; p: =s1*s2*s3; end; writeln('s1=', s1 ,' s2=', s2 ,' s3=', s3 ,' p=',p); readln; end.
Популярно: Информатика
-
ДавыдоваЮлия567829.04.2020 08:14
-
Toichievakumis206.08.2020 01:35
-
elya14407.08.2021 14:33
-
Женька259704.12.2022 03:38
-
kazimirova200930.04.2020 16:53
-
zizigi10.05.2022 11:42
-
klochkovanastsy08.10.2021 22:39
-
Karolinka2212.01.2020 07:10
-
Makarzzz13.05.2023 04:04
-
Kammmmmmmmmmmm07.04.2021 05:37