дано N оценок (от 2 до 5). Сколько среди них двоек и четверок? Pascal
lenyashastin:
Качество каждой оценки задается с клавиатуры или же оно рандомно?
Ответы
Ответ дал:
1
Ответ:
var x,i,n:integer;
var a:array[1..99999] of integer;
begin
readln(n);
x:=0;
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if (a[i]=2) or (a[i]=4) then
inc(x);
end;
writeln(x);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад