Информатика | 10 - 11 классы
Помогите написать программу (Паскаль.
Массив).
Написать программу в Паскале?
Написать программу в Паскале.
Написать программу на паскале?
Написать программу на паскале.
Задача карандашом.
Написать программу в паскале?
Написать программу в паскале.
Помогите написать программу ( паскаль )?
Помогите написать программу ( паскаль ).
Написать программу в Паскале (см фото)?
Написать программу в Паскале (см фото).
Помогите написать программы на паскальЗадание номер 5 и плюс две программы с фото?
Помогите написать программы на паскаль
Задание номер 5 и плюс две программы с фото.
Ребят помогите написать программу с помощью Паскаль?
Ребят помогите написать программу с помощью Паскаль.
Помогите написать программу в паскале?
Помогите написать программу в паскале.
Задание 2.
Помогите написать программу в паскале?
Помогите написать программу в паскале.
Заранее спасибо).
Помогите написать программы на языке Паскаль , пожалуйста срочно надо ?
Помогите написать программы на языке Паскаль , пожалуйста срочно надо !
На этой странице находится вопрос Помогите написать программу (Паскаль?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 10 - 11 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
Program n1 ;
const n = 10 ;
var a : array[1.
N] of integer ;
b : array[1.
5] of integer ;
i, sum, d, k : integer ;
begin
sum : = 0 ;
writeln('исходный массив : ') ;
for i : = 1 to n do
begin
a[i] : = i * i ;
write(a[i], ' ') ;
end ;
writeln ;
for i : = 1 to n do sum : = sum + a[i] ;
d : = a[n] - a[1] ;
k : = 0 ;
for i : = 1 to n do if i mod 2 = 0 then begin
k : = k + 1 ;
b[k] : = a[i] ;
end ;
writeln('сумма : ', sum) ;
writeln('разность : ', d) ;
writeln('другой массив : ') ;
for i : = 1 to 5 do write(b[i], ' ') ;
end.