Известны оценки по информатике каждого из 20 учеников класса

@Fox2156 · Регистрация: 29.05.2017

Author24 — интернет-сервис помощи студентам

Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку "5"? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.

@Matan! · 29.05.2017, 11:32

Можно так:

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  count, i : Integer;
  marks : array[1..20] of Integer;
begin
  for i := 1 to 20 do
     Readln(marks[i]);
  for i := 1 to 20 do
     Writeln(marks[i]);
 
  count := 0;
  for i := 1 to 20 do begin
    case marks[i] of
      5 : Inc(count);
    end;
  end;
  Writeln(count);
end.

@Fox2156 · 29.05.2017, 12:14 **[ТС]**

Спасибо. большое

@Fox2156 0 / 0 / 0 Регистрация: 29.05.2017 Сообщений: 66
		1
	Известны оценки по информатике каждого из 20 учеников класса 29.05.2017, 02:45. Показов 11024. Ответов 2 Метки нет (Все метки) Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку "5"? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса. 0

@Fox2156 0 / 0 / 0 Регистрация: 29.05.2017 Сообщений: 66
	29.05.2017, 12:14 [ТС]	3
	Спасибо. большое 0

Известны оценки по информатике каждого из 20 учеников класса

Решение