Составьте программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значениями.
190
486
Ответы на вопрос:
Var a: array[1..100] of integer; i,n: integer; begin readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do if a[i]> =0 then write(a[i],' '); end.
Популярно: Информатика
-
Бригман06.12.2022 04:38
-
опв401.04.2020 00:50
-
alkofner24.03.2023 21:18
-
Дишka12.09.2020 08:00
-
HelpinEnglish12.04.2022 14:41
-
kotяplay1203.02.2022 01:48
-
26090204A14.01.2022 07:15
-
Karinakotik20016503.03.2020 18:48
-
Люциферин17.06.2023 21:44
-
VIGOMIC16.10.2022 07:38