Регистрация
timurev
22.11.2020 14:50
Информатика
Есть ответ 👍

Составить алгоритм на паскале чтобы найти количество учеников, которые написали контрольную на оценку выше 3( из 5).Если то я закрепил пример того как эту программу надо составлять.

166
299
Посмотреть ответы 2

Ответы на вопрос:

Kristibabiba098
Kristibabiba098
4,6(44 оценок)

const N = 10;

var a: array [1..N] of integer;

i, counter: integer;

begin

       write('Список оценок: ');

      for i := 1 to N do

      begin

             a[i] := Random(5) + 1;

             write(a[i], ' ');

      end;

      writeln();

   

      counter := 0;

      for i := 1 to N do

             if a[i] > 3 then inc(counter);

      writeln('На оценку выше 3 написали: ', counter, ' ч.');

end.

shuoksana2014
shuoksana2014
4,8(32 оценок)
Program sredarifment;   var a: array[1..10] of real;     i, k: integer;     c, s, sred: real;   begin    for i: =1 to 10 do    begin      write ('a[',i,']='); readln (a[i]);     end;     write('введите c: '); readln (c);     for i: =1 to 10 do    begin      if a[i]> c then      begin s: =s+a[i]; k: =k+1; end;     end;     sred: =s/k;     writeln('среднее арифметическое чисел, превосходящих ',c,' равно ',sred);   end. 

Популярно: Информатика