Программа на паскале

дано 10 чисел

найти среднее арифметическое всех чисел, потом положительных, потом отрицательных.

for var i:=1 to 10 do

Ответы

65536 цветов кодируются 16 битами (2^16 = 64к) = 2 байта

 

60 сек * 24 кадра/сек * 800*600 точек/кадр * 2 байта/точку = 1382400000 байт = 1350000 кбайт ~ 1.3 гбайта

чесно говоря не уверенна что понимаю

 

найти первое предложение

пока есть найденное предложение

  перевести его

  записать перевод

  найти следущее предложение

конец цикла

 

Var a:array[1..10] of integer;

i,k:integer;

s:real;

begin

k:=0;

writeln('Введите числа');

for i:=1 to 10 do

begin

readln(a[i]);

k:=k+a[i];

end;

s:=k/10;

writeln('Среднее арифметическое равняется ',s);

end.

Объяснение:

Найдено 3 ответ(ов)
Показать ответы


Знаешь ответ?

Похожие вопросы:

освободить  грелку1) начало,2) взять чайник,3) вылить воду из грелки в чайник,4) остудить воду,5) вылить воду из чайника,6) поставить чайник на место,7) конец    ...Подробнее
ответов: 3
Популярные вопросы