Напишите программу, которая вводит натуральное число n и выводит в строчку через пробел n натуральных чисел в обратном порядке от n до 1.
108
359
Ответы на вопрос:
Const n=15; var a: array [1..n] of integer; i: integer; p: boolean; begin p: =true; for i: = 1 to n do begin write('введите a[',i,']: '); readln(a[i]); end; i: =1; while p and (i< n) do begin if a[i]+a[i+1]> 10 then begin p: =false; writeln; writeln('(a[',i,']=',a[i],') + ((a[',i+1,']=',a[i+1],') > 10'); end; inc(i); end; writeln; if p then writeln('no'); end.
Популярно: Информатика
-
daniilf02mail19.05.2020 07:33
-
dfoddo14.08.2022 21:58
-
dfghfgjkhfdjkgh30.06.2021 09:24
-
nikzakora04.01.2023 23:15
-
swetammm201826.12.2022 18:43
-
makskolisnik9ouay0827.06.2023 00:30
-
Slloonok13.02.2023 13:50
-
olga69504.12.2020 10:59
-
andrey208521.06.2021 12:30
-
krasotka872611.03.2021 09:02