Информатика | 10 - 11 классы
Помогите ивт паскаль abc.
Помогите Нужно нарисовать лягушку через программу паскаль abc?
Помогите Нужно нарисовать лягушку через программу паскаль abc.
Паскаль ABCпомогите пожалуйста 19 задание 3 - я формула?
Паскаль ABC
помогите пожалуйста 19 задание 3 - я формула.
Нужно в Паскале abc решить эту задачу?
Нужно в Паскале abc решить эту задачу!
Помогите плиз!
Помогите решить задачу по ИВТ на языке паскаль?
Помогите решить задачу по ИВТ на языке паскаль.
Задано 3 числа найти наибольшее из них.
Помогите с паскалем ABC?
Помогите с паскалем ABC.
Помогите сделать дз по ИВТ?
Помогите сделать дз по ИВТ.
Помогите пожалуйста по ИВТ?
Помогите пожалуйста по ИВТ.
ИВТ. Задание номер 16, 18?
ИВТ. Задание номер 16, 18.
Через паскаль.
Помогите с программированием, работа с паскаль abc?
Помогите с программированием, работа с паскаль abc.
Помогите пожалуйста по ивт?
Помогите пожалуйста по ивт.
На этой странице находится вопрос Помогите ивт паскаль abc?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
1. var n, i, k : integer ;
a : array [1.
100] of integer ;
begin
read(n) ;
k : = 0 ;
for i : = 1 to n do
read(a[i]) ;
for i : = 1 to n do
if a[i] mod 2< ; > ; 0 then k : = k + 1 ;
write(k) ;
end.
2. var n, i, p : integer ;
a : array [1.
100] of integer ;
begin
read(n) ;
p : = 1 ;
for i : = 1 to n do
read(a[i]) ;
for i : = 1 to n do
if a[i]< ; > ; 0 then p : = p * a[i] ;
write(p) ;
end.
3. var n, i, k : integer ;
a : array [1.
100] of integer ;
begin
read(n) ;
k : = 0 ;
for i : = 1 to n do
read(a[i]) ;
for i : = 1 to n do
if (a[i]< ; = 1) or (a[i]> ; = 15) then k : = k + 1 ;
write(k) ;
end.