Написать программу, которая для введенного пользователем целого числа n находит наименьшую цифру этого числа (Например 1923, самое меньшее 1)
149
268
Ответы на вопрос:
Var a: array[1..1000] of integer; b: array[1..3] of integer; i,n: integer; begin write('n = '); readln(n); for i: = 1 to n do begin read(a[i]); if a[i] mod 2 < > 0 then b[1]: =b[1]+a[i]; if a[i] mod 2 = 0 then b[2]: =b[2]+a[i]; end; writeln; for i: = 1 to n do write(a[i],' '); b[3]: =b[1]+b[2]; writeln('b[1] = ',b[1]); writeln('b[2] = ',b[2]); writeln('b[3] = ',b[3]); end. или так: var a: array of integer; b: array[1..3] of integer; i,n: integer; begin write('n = '); readln(n); a: =new integer[n]; for i: = 0 to n-1 do begin read(a[i]); if a[i] mod 2 < > 0 then b[1]: =b[1]+a[i]; if a[i] mod 2 = 0 then b[2]: =b[2]+a[i]; end; writeln; for i: = 0 to n-1 do write(a[i],' '); b[3]: =b[1]+b[2]; writeln('b[1] = ',b[1]); writeln('b[2] = ',b[2]); writeln('b[3] = ',b[3]); end.
Популярно: Информатика
-
elizaveta2001kz14.03.2023 17:51
-
nadyashapeeva10.05.2020 12:46
-
Lirik132810.09.2020 19:40
-
ukharitonova12.05.2021 12:44
-
andreyyyyyyy2026.08.2021 03:12
-
aasssddddddd15.02.2023 11:21
-
14342417.01.2023 08:55
-
bananxhik13.08.2021 22:39
-
misik111.10.2022 12:57
-
ep097791272109.04.2021 16:50