< >

информатика! допишите пожалуйста программу
k:=0;
for i:=1 to n do
if a[i]>50 then k:=k+1;
write ('k=', k);

Ответы

Ответ дал: angryfukse
0

Решение представлено во вложении.

Язык: Pascal

Приложения:
Похожие вопросы
Английский язык
1 год назад
Ребят нужна помощь с английским языком . ‘Do My friends like rock music’ Надо составить 5 вопросов: 1)общее. 2) альтернативное. 3) специальное 4) раздельное и 5) подлежащее.
Английский язык
1 год назад
помогите пожалуйста с английским. нужно написать вопросы ”про интернет" и ответить на них. на английском не менее 5-ти вопросов
Русский язык
2 года назад
Предложение со словом унижать и со словом штраф.
Английский язык
2 года назад
перевод фразы Lamour
Математика
7 лет назад
помогите пожалуйста 3 -е
История
7 лет назад
синквэй на тему ян густ
Биология
9 лет назад
организмы,разлагающие отмершие органические вещества, превращая их в неорганические
Математика
9 лет назад
Найди значение выражение при с=14,16,36