Регистрация
BonYseT
29.04.2023 23:09
Информатика
Есть ответ 👍

программа для паскаль ABC. Программа оценка. Классу дана контрольная из 10 заданий. Программа просит ввести кол-во выполненных учеником заданий. Если ученик сделает от 3-х до 5 заданий программа ставит ему «Ваша оценка 3». От 6 до 8 ставит 4-ку. От 9 – 5-ку. Иначе 2-ку.

273
485
Посмотреть ответы 1

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

100profan
100profan
4,6(84 оценок)

program raf105;

const

  n = 5;

var  

  a: array[1..n,1..n] of integer;

  i,j,num,n1,n2: integer;

begin

writeln('вводите числа столбцов матрицы по очереди');

for i: =1 to n do

begin

  writeln('столбец ',i);

  for j: =1 to n do

    readln(a[i,j]);

end;

for i: =1 to n do

begin

  n1: = 0;

  n2: = 0;

  for j: =1 to n do

  begin

    if (a[i,j] mod 2 < > 0) and (a[i,j] < > 0)

      then n1: = n1+1;

  end;

  for j: =1 to n do

  begin

    if (a[i,j] mod 2 = 0) and (a[i,j] < > 0)

      then n2: = n2+1;

  end;

  if n1 > n2

    then num: = i;

end;

writeln('вывод: ',num);

end.

pascalabc 3.4.2

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