Ответы на вопрос:
Var a,b: array[1..10] of integer; i,n: integer; beginn: =1; for i: =1 to 10 do readln(a[i]); for i: =1 to 10 dobeginif a[i]< > 0 then beginb[n]: =a[i]; inc(n); end; end; if n=1 then writeln('элементов нет') elsefor i: =1 to n-1 do writeln(i,': ',b[i]); end.
Популярно: Информатика
-
skrylnikvozvyb615.01.2021 12:44
-
КотБарис106.04.2023 10:25
-
SophiaSaliuk27.01.2022 09:44
-
ulozerova17.02.2023 04:59
-
akikjiro24.12.2020 18:53
-
kristina186123.11.2020 21:43
-
NastyKek455616.02.2022 08:58
-
hopik209.03.2021 01:55
-
Skeletron12915.03.2023 14:41
-
влад231321.05.2022 10:56