PASCAL
10-11 класс
|
С клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел
program s;
var a,i,b,u:integer;o: real;
begin
u:=0;
for i:=1 to 10 do
begin
readln (a);
if(a mod 2)= 0 then
begin
b:= a + b;
u:= u +1 ;
end;
end;
o:= b / u;
writeln(o:4:2);
readln;
end.
Другие вопросы из категории
1.Остров
2. Мореплаватель
3.Орфограмма
4.Математический закон
5.Формула
6.Поэма
Пожалуйста, срочно надоо.!))
Читайте также
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
формул языка Pascal сделать так, чтобы случайные числа выпадали в интервале (a;b)
У нас на первом курсе тема Pascal, а я гляжу на него как баран на новые ворота...
Я отстал сильно на 2 недели и ни могу ни как понять его... Скажите пожалуйста по конкретнее с чего начать, что именно нужно изучить или выучить, понять, чтобы знать как составлять на нём программы ?
получить от 5 до 15 баллов (Сгенерить случайные числа
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.