Предмет:
ИнформатикаАвтор:
kaydendoylevar a:array[1..100] of integer;
s,i:integer ;
sr:real;
Begin
{vvod massiva a}
for i:= 1 to 100 do
sr:=sr+a[i];
sr:= sr/100;
for i:= 1 to 100 do
if a[i]>sr then
s:=s+1;
writeln(s);
End.
Автор:
mollie61Добавить свой ответ
Предмет:
Английский языкАвтор:
alessandra79Ответов:
Смотреть
из 7.7м ткани сшили 7 платьев для кукол и 9 одинаковых полотенец,сколько ткани пошло на одно полотенце,если на каждое платье потребовалось 0.65м ткани?
Предмет:
АлгебраАвтор:
barnabybaileyОтветов:
Смотреть
У крупного рогатого скота красная масть домминанрует, над белой.При генотип Аа Чалая масть, имеется чалый бык а коровы всех 3 мастей. Какова вероятность появления чалого теленка в каждом из 3 возможных скрещеванй?
Помогите решить шараду,плиз очень надо!!!
С буквой "д" вперед шагаю
От зари и до зари.
С "п" торчу,зачем не-знаю,
С "т" я людям помогаю
Даже в самый сильный зной,
С "л"-всегда и всем мешаю,
Не дружите вы со мной.
Зарание СПАСИБО!!! (тому кто решит!!!)
Предмет:
Русский языкАвтор:
kellenganlОтветов:
Смотреть