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

👇

Увидеть ответ

Ответ:

KarinaCorso

14.01.2023

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.

4,8(70 оценок)

Открыть все ответы

Ответ:

Сmetana34

14.01.2023

первоначально исследовавшая количественные отношения и пространственные формы[2]; более современное понимание: это наука об отношениях между объектами, о которых ничего не известно, кроме описывающих их некоторых свойств, — именно тех, которые в качестве аксиом положены в основание той или иной математической теории[3].

Математика исторически сложилась на основе операций подсчёта, измерения и описания формы объектов[4]. Математические объекты создаются путём идеализации свойств реальных или других математических объектов и записи этих свойств на формальном языке.

Математика не относится к естественным наукам, но широко используется в них как для точной формулировки их содержания, так и для получения новых результатов. Математика — фундаментальная наука, предоставляющая (общие) языковые средства другим наукам; тем самым она выявляет их структурную взаимосвязь и нахождению самых общих законов природы[5].

4,5(75 оценок)

Ответ:

ntaskaeva2

14.01.2023

Type
mass = array[1..10, 1..10] of real;

var
a, b, c: mass;
n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
i, j: integer;
begin
for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
writeln('Введите n,m матрицы A');
readln(n, m);
MatrA(a);
writeln('Введите n,m матрицы B');
readln(n1, m1);
MatrB(b);
if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
end;
readln;
end.

4,7(39 оценок)

Это интересно:

Хобби-и-рукоделие

06.03.2020

Как правильно драпировать платье: советы стилистов и примеры вариантов...

Компьютеры-и-электроника

30.11.2021

Apple Macintosh или другие ПК: как определиться с выбором...

Дом-и-сад

04.01.2022

Солнечная энергия: идеальное решение для подогрева бассейна...

Кулинария-и-гостеприимство