срочнооо!! задание такое: в класее 20 учеников написали диктант, необходимо сделать
Срочнооо!!
задание такое: в класее 20 воспитанников написали диктант, нужно сделать програму оторая вычислит количество 2,3,4,5
я написал вот но она покацывает ошибку среда програмирования PASCAL ABC.NET
program N_0547847;
var b, c, d, f, i:integer;
var a: array [1..20] of integer;
begin;
randomize;
a[i]:=random (5);
if a[i]=2 then
b:=a[i];
writeln('количество двоек =',b);
if a[i]= 3 then
c:=a[i];
writeln('количество троек =',c);
if a[i]=4 then
d:=a[i];
writeln('количество четверок =',d);
if a[i]=5 then
f:=a[i];
writeln('количество пятёрок =',f);
end.
1 ответ
Лоскович
Наталья
Честно, не поняла ваш код вообщем. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Позже выводим его (Для проверки)
3) Позже считаем оценки. Но поначалу необходимо обнулить переменные( В самом начале это делали), а то получится кака (:
program N_0547847;
var
b, c, d, f, i:integer;
a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
a[i]:=random(4)+2;
write(a[i],' '); end;
writeln;
for i:=1 to 20 do begin
if a[i]=2 then b:=b+1;
if a[i]=3 then c:=c+1;
if a[i]=4 then d:=d+1;
if a[i]=5 then f:=f+1;
end;
writeln('Двоек: ', b);
writeln('Троек: ', c);
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Позже выводим его (Для проверки)
3) Позже считаем оценки. Но поначалу необходимо обнулить переменные( В самом начале это делали), а то получится кака (:
program N_0547847;
var
b, c, d, f, i:integer;
a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
a[i]:=random(4)+2;
write(a[i],' '); end;
writeln;
for i:=1 to 20 do begin
if a[i]=2 then b:=b+1;
if a[i]=3 then c:=c+1;
if a[i]=4 then d:=d+1;
if a[i]=5 then f:=f+1;
end;
writeln('Двоек: ', b);
writeln('Троек: ', c);
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов