составить блок схему в Microcoft Visio. Ввести матрицу SIR порядка С*К. Определить число строк, в которых - id2067407620220209 от Мариша741 09.02.2022 21:27

Question

Информатика: составить блок схему в Microcoft Visio. Ввести матрицу SIR порядка С*К. Определить число строк, в которых количество положительных элементов больше количества отрицательных

Мариша741 · Accepted Answer

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
  begin
  write('Введите ответ уравнения ', problems[counter], ' : ');
  readln(userAnswer);
  if userAnswer = answers[counter] then Inc(countOfAnswers);
  end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.

MOGZ ответил