Подсчитать в массивах количество элементов, больших значения t - Pascal ABC

Формулировка задачи:

1. Заданы два массива A(N) и B(M). Подсчитать в них количество элементов, больших значения t и первым на печать вывести массив, имеющий наименьшее их количество. Значение t вводит пользователь. 2. Задан массив вещественных чисел A[N,N].. Необходимо каждый элемент массива разделить на среднее арифметическое элементов массива. На печать вывести исходный и преобразованный массивы.

Код к задаче: «Подсчитать в массивах количество элементов, больших значения t - Pascal ABC»

textual
var
  a, b: array[1..100] of integer;
  M, N, t, kola, kolb, i: integer;
 
begin
  //заполнение массива
  writeln('введите t');
  readln(t);
  writeln('введите сколько элементов в a');
  readln(N);
  for i := 1 to N do
  begin
    writeln('введите ', i, '-ый элемент');
    readln(a[i]);
    if a[i] > t then kola := kola + 1;
  end;
  writeln('введите сколько элементов в b');
  readln(M);
  for i := 1 to M do
  begin
    writeln('введите ', i, '-ый элемент');
    readln(b[i]);
    if b[i] > t then kolb := kolb + 1;
  end;
  if kola < kolb then begin for i := 1 to N do write(a[i], ' ');writeln;for i := 1 to M do write(b[i], ' '); end
  else begin for i := 1 to M do write(b[i], ' ');writeln;for i := 1 to N do write(a[i], ' ') end;
end.

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ