Информатика | 10 - 11 классы
Помогите решить , желательно на языке паскаля.
Знакомство с языком Паскаль?
Знакомство с языком Паскаль!
Помогите!
Помогите решить задачу по ИВТ на языке паскаль?
Помогите решить задачу по ИВТ на языке паскаль.
Задано 3 числа найти наибольшее из них.
В первом написать на языке Паскаль, во втором решить?
В первом написать на языке Паскаль, во втором решить.
Программирование на языке паскаль ?
Программирование на языке паскаль .
Помогите пожалуйста.
Помогите пожалуйста, если что, то это язык програмирования Паскаль?
Помогите пожалуйста, если что, то это язык програмирования Паскаль.
Решите Пожалуйста?
Решите Пожалуйста!
Желательно на языке ПАСКАЛЬ!
Помогите?
Помогите!
Очень срочно!
Запишите на языке Паскаль.
Помогите написать программу на языке паскаль?
Помогите написать программу на языке паскаль.
Помогите со вторым пожалуйста?
Помогите со вторым пожалуйста.
В информатике я чайник - поэтому желательно так, чтобы я досконально списал в Паскаль.
На этой странице находится вопрос Помогите решить , желательно на языке паскаля?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 10 - 11 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
Const
n = 30 ;
var
a : array[1.
N]of integer ;
i, j, s : integer ;
begin
For i : = 1 to n do
Readln(a[i]) ; {здесь появится курсор, числа вводятся с клавиатуры}
For i : = 1 to n do begin if (a[i]> ; = 100)and(a[i]< ; = 999)then if a[i] mod 2 = 0 then begin s : = s + a[i] ; j : = j + 1 ; end ; end ;
writeln ;
if j = 0 then writeln('нет нужныхчисел')
else writeln(s / j) ;
end.