tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вмассиве хранятся сведения об
Вмассиве хранятся сведения об оценках 25 учеников по . определить количество неуспевающих по учеников. ,,паскаль-одномерный массив
ritosha002
3 29.08.2019 18:30
3
Ответы
fara30
06.10.2020 03:27
Const n=25;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i]:3);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]=2 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Оценки:
3 4 4 2 5 2 5 4 5 3 3 5 2 5 5 3 3 3 3 5 5 3 5 4 5
k = 3
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
конфетка03031
15.08.2019 18:20
Составьте программу вычисления в массиве а(10) заполненном случайными числами из интервала (-5,10) количества отрицательных элементов...
Игнатий007
19.05.2021 20:17
дай бог здоровья вашим детям, внукам, родителям, бабушкам и дедушкам, что б у того кто решит водились милионны евро, шо б с задним проходом всё было хорошо и никто там не водился,...
24556
19.05.2021 20:17
плс кто знает как сделать программу в паскале Напиши программу на Паскале для решения следующей задачи. Даны два числа b и c. Если числа равны, то замени каждое из них произведением...
iibixa1
19.05.2021 20:19
написать команды(типо сколько раз влево, вперёд и т.д.)с исполнителя команд черепашки имя АННА...
tumanovamariam
20.10.2021 08:31
3. По каналу передается 225 Кбайт информации со скоростью 14400 бит/с. Найдите время передачи...
Helpmeplease1114
09.09.2019 23:40
Сообщение занимает 6 страниц по 40 строк, в каждой строке записано по 60 символов. информационный объём всего сообщения равен 9000 байтами. каков информационный вес одного символа?...
lemenukillya
14.05.2020 19:55
Подскажите как это делать((...
KapitanNEMO
14.05.2020 19:54
Установите правильный порядок следования блоков программы: Укажите порядок 1 Программный блок 3 Заголовок программы 2 Блок описания используемых данных...
lizahelp7
10.05.2020 13:12
Найти интеграл методом замены переменной ...
1903vita
10.05.2020 13:12
САМОСТОЯТЕЛЬНАЯ РАБОТАПострой прямоугольный треугольник со сторонами4 см и 8 см, прилегающими к прямому углу. начертите...
Популярные вопросы
Составь 2 предложение из слов...
3
444 Послушайте о том, как начнётся путешествие героини книги Л. Кэр- ролла...
1
Скільки творів мистецтва пов’язано одним задумом диптиху Ліни Костенко «чайка...
3
Пересказ Рождественское письмо ...
3
найти в Интернете и прочитать текст Манифеста от 16 февраля 1861 года. Высказать...
1
разобраться [email protected]...
2
В равнобедренном треугольнике NEG проведена биссектриса GM угла G у основания...
2
7 класс история россии параграф 10 ОПРИЧНИНА 1.пАДЕНИЕ иЗБРАННОЙ РАДЫПЕРЕСКАЗ...
1
Вычисли разность смешанных чисел. Дополни решение: 66 1/20 - 22 4/15 = 65 (пропущ.)/60...
2
Древние кристаллические породы часто выходят на поверхность а) в Северной Африке...
2
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i]:3);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]=2 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Оценки:
3 4 4 2 5 2 5 4 5 3 3 5 2 5 5 3 3 3 3 5 5 3 5 4 5
k = 3