![](/logo_grey.gif)
Последние записи
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
- Относительный путь для вывода картинки на html странице
- Массовое открытие гиперссылок в браузере
- Скопировать значение строки из таблицы в textarea
- Рамки для страниц отчетов
- Вывод StdOut консоли в TMemo
- Чтение из файла большого размера (нехватка памяти)
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
16th
Дек
В классе 20 учеников писали диктант по русскому языку. Напишите программу подсчитывающую кол-во оценок (двоек, троек…). Паскаль
Posted by obzor under Pascal
В классе 20 учеников писали диктант по русскому языку. Напишите программу ,напишите программу подсчитывающую кол-во двоек, троек, четверок и пятёрок, полученных за диктант.
А такой вариант программы Вас не устроит?
program N_8;
var a: array[1..20] of integer;
var i, ot2, ot3, ot4, ot5: integer;
begin
Randomize; {иницилизируем генератор псевдослучайных чисел}
for i := 1 to 20 do begin
a[ i] := random(4) + 2;
write('a[ i]=', a[ i],' ');
end;
WriteLn;
{сначала обнулим счётчики оценок}
ot2 := 0;
ot3 := 0;
ot4 := 0;
ot5 := 0;
{теперь подсчитаем количество отметок}
for i := 1 to 20 do begin
if a[ i]=2 then ot2 := ot2 +1;
if a[ i]=3 then ot3 := ot3 +1;
if a[ i]=4 then ot4 := ot4 +1;
if a[ i]=5 then ot5 := ot5 +1;
end;
{вывод результатов}
writeln('Dvoek =', ot2, ' Troek =', ot3, ' Chetverok =', ot4, ' Paterok =', ot5)
end.
или вариант 2, вместо кучи переменных для подсчёта отметок заводим массив.
Код получается и проще и нагляднее и более универсальным…
program N_8;
var a: array[1..20] of integer;
var i, k : integer;
otmetki : array[2..5] of integer;
begin
Randomize; {иницилизируем генератор псевдослучайных чисел}
for i := 1 to 20 do begin
a := random(4) + 2;
write('a=', a[ i],' ');
end;
WriteLn;
{сначала обнулим счётчики оценок}
for k:=2 to 5 do otmetki[k] := 0;
{теперь подсчитаем количество отметок}
for i := 1 to 20 do
if (a[ i]>=2) and (a[ i]<=5) then Inc( otmetki[ a[ i] ]);
{вывод результатов}
for k:=2 to 5 do
WriteLn('otmetka ',k,' kolichestvo ocenok = ',otmetki[k]);
end.
Случайные статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)