Помогите!!!!паскаль. Заранее спасибо))) паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все
5-9 класс
|
пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать
program primer;
var a:array[1..20] of integer;
b,c:integer;
begin
write('write raiting');writeln ;
for b:=1 to 20 do
read(a[b]);
c:=1;
repeat
inc(c);
until a[c]<5;
write(c-1);
end.
Другие вопросы из категории
1. Задано число x. Найдите s, если:
s = cos x - sin x + |x-7| + x2 - 1
2.Даны два действительные числа.
Найти среднее арифметическое этих
чисел.
3.
Задан массив случайным образом. Преобразовать его след. образом:
Читайте также
затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать. 2)Составить программу, которая находит минимальное число большее 200, которое нацело делится на 17. Использовать цикл с предусловием While.всю программу напишите, пожалуйста)))
«а». В случае положительного ответа найти порядковый номер первой из них.
1 задача: На предприятии работают 600 человек. Приход на работу фиксируется автоматом, записывающим номер пришедшего. Найти размер записи утром, если известно, что в этот день 100 человек по разным причинам не пришло.
2 задача: Задумано двухзначное число. Число считается удачным, если оно делится на 5 или содержит цифру 6. Сколько существует удачных чисел?
Заранее спасибо!
мышки для сбора урожая ИСХОДНЫЕ ДАННЫЕ ______________________ 2)Малыш и карлосон решили по-братски разделить два сладких орешка-болльшой и маленький . Как это сделать ? Помогите плиз , заранее спасибо :) надеюсь на вас ! Просто я непоняла что с исходными данными делать .