В классе 35 человек. Поочередно вводятся оценки воспитанников за контрольную работу.
В классе 35 человек. Поочередно вводятся оценки воспитанников за контрольную работу. Найдите средний балл и количество пятёрок. PASCAL
С помощью метода for ... to ... do
Дарина Мордвинкина
мне уточнили что надобно по этому методу решать
2 ответа
Кристина Щелокова
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ReadArrInteger('-gt;',35);
var s:=0;
var k:=0;
for var i:=0 to 34 do begin
s+=a[i];
if a[i]=5 then k+=1
end;
Writeln('Средний балл ',s/35:4:2);
Writeln('Количество пятерок- ',k)
end.
Пример
-gt; 4 4 2 4 5 2 3 3 4 3 2 3 2 4 4 2 4 2 4 5 2 2 5 4 4 2 4 2 4 5 5 2 3 3 4
Средний балл 3.34
Количество пятерок- 5
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ReadArrInteger('-gt;',35);
var s:=0;
var k:=0;
for var i:=0 to 34 do begin
s+=a[i];
if a[i]=5 then k+=1
end;
Writeln('Средний балл ',s/35:4:2);
Writeln('Количество пятерок- ',k)
end.
Пример
-gt; 4 4 2 4 5 2 3 3 4 3 2 3 2 4 4 2 4 2 4 5 2 2 5 4 4 2 4 2 4 5 5 2 3 3 4
Средний балл 3.34
Количество пятерок- 5
Сергей Бардузов
Var
eval: array[1..35] of byte;
i, good: integer;
sr: real;
begin
good := 0;sr := 0;
for i := 1 to 35 do
begin
write(i, '.) ');readln(eval[i]);
sr := sr + eval[i];
if eval[i] = 5 then inc(good);
end;
sr := sr / 35;
writeln('Всего пятерок: ', good);
writeln('Средний бал: ', sr:0:2);
end.
eval: array[1..35] of byte;
i, good: integer;
sr: real;
begin
good := 0;sr := 0;
for i := 1 to 35 do
begin
write(i, '.) ');readln(eval[i]);
sr := sr + eval[i];
if eval[i] = 5 then inc(good);
end;
sr := sr / 35;
writeln('Всего пятерок: ', good);
writeln('Средний бал: ', sr:0:2);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов