var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;

end.

0 0

4 года назад

Почему электронные таблицы часто называют динамическими

Андрей Капралов [86]

Потому что слово "динамичный" от слова "динамика"-изменение, подстраивание. После изменение формулы или данного связанного с формулой моментально (ну или не моментально-зависит от производительности ПК) изменяется часть таблицы, подвластная этой формуле.

0 0

4 года назад

Что значит " Моё тело это храм? "

igor6

В твоем теле скапливается всё, что принимал из вне. Ты можешь его сохранить, как самый настоящий храм или же превратить в СИЗО.

0 0

4 года назад

QBASIC 9 КЛАСС Вычислить сумму первых N натуральных четных чисел

Синка

INPUT "n=", n
s = 0
i = 1
DO WHILE i <= n
s = s + 2 * i
i = i + 1
LOOP
PRINT "s="; s

0 0

4 года назад