Информатика | 5 - 9 классы
Помогите, пожалуйста !
В Паскале.
Помогите пожалуйста информатика, паскаль?
Помогите пожалуйста информатика, паскаль.
Помогите с практикой в паскале?
Помогите с практикой в паскале!
Помогите?
Помогите!
Напишите пожалуйста блок - схему и программу для Паскаля!
Помогите, пожалуйста, решить задачу (в формате Паскаля)?
Помогите, пожалуйста, решить задачу (в формате Паскаля).
Напишите алгоритм к этой картинке в "Паскаль"?
Напишите алгоритм к этой картинке в "Паскаль".
Помогите, пожалуйста!
Набрать в паскале программу флага помогите пожалуйста?
Набрать в паскале программу флага помогите пожалуйста.
Помогите, пожалуйста Запишите на ЯП Паскаль и обратно?
Помогите, пожалуйста Запишите на ЯП Паскаль и обратно.
Помогите задание в паскале?
Помогите задание в паскале.
Пожалуйста.
Помогите пожалуйста в Паскале сделать эти 3 вопроса?
Помогите пожалуйста в Паскале сделать эти 3 вопроса.
Пожалуйста помогите нарисовать в паскале это?
Пожалуйста помогите нарисовать в паскале это.
На этой странице сайта, в категории Информатика размещен ответ на вопрос Помогите, пожалуйста ?. По уровню сложности вопрос рассчитан на учащихся 5 - 9 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
Const n = 7 ;
var a : array[1.
N] of integer ; i : integer ;
begin
writeln('Исходный массив : ') ;
for i : = 1 to n do begin
write('a[', i, '] = ') ;
readln(a[i]) ;
end ;
writeln ;
writeln('1)') ;
for i : = 1 to n do
if a[i]>0 then write(a[i], ' ') ;
writeln ;
writeln('2)') ;
for i : = 1 to n do
if a[i] mod 2 0 then write(a[i], ' ') ;
writeln ;
writeln('3)') ;
for i : = 1 to n do
if (a[i]>0)and(a[i] mod 5 = 0) then write(a[i], ' ') ;
writeln ;
writeln('4)') ;
for i : = 1 to n do
if i mod 2 = 0 then write(a[i], ' ') ;
writeln ;
writeln('5)') ;
for i : = 1 to n do
if i mod 3 = 0 then write(a[i], ' ') ;
writeln ;
end.
Пример :
a[1] = 15
a[2] = - 48
a[3] = 29
a[4] = - 51
a[5] = 94
a[6] = 30
a[7] = 67
1)
15 29 94 30 67
2)
15 29 - 51 67
3)
15 30
4) - 48 - 51 30
5)
29 30.