Ответы на вопрос:
Проблема не в синтаксисе, а в самом решении задачи. Либо ты выводишь неверный ответ, либо выводишь его неправильно. Могу с задачей. Можешь создать допустим новый вопрос и кинуть туда условие.
Const n=5; var x: array[1..n]of real; i,k: integer; p: real; begin p: =1; for i: =1 to n do begin readln(x[i]); if x[i]> 0 then begin p: =p*x[i]; k: =k+1; end; end; writeln('p=',p); writeln('k=',k); end.
Популярно: Информатика
-
nrcsgt23.06.2023 20:15
-
jena605.01.2023 06:38
-
alenazakhar2000al12.09.2020 21:54
-
AlexCameron08.02.2022 23:04
-
Влад505517.02.2020 10:34
-
dima14050423.05.2020 14:02
-
ГришаМститель07.08.2020 03:44
-
marcella611200014.09.2020 23:28
-
pyataevadasha11.05.2023 15:45
-
Dan1la128.12.2022 15:15