Помогите решить задачу

Заданы

два массива А (5) и В (5). Подсчитать в них количество элементов, меньших

значения t и первым на печать вывести массив, имеющий наибольшее их количество.

Question

Информатика

Гаврил

5 апреля, 04:27

Помогите решить задачу

Заданы

два массива А (5) и В (5). Подсчитать в них количество элементов, меньших

значения t и первым на печать вывести массив, имеющий наибольшее их количество.

+3

Ответы (1)

Знаете ответ на вопрос?

Светланыч · Answer 1

Program mas2;

uses crt;

var

a:array[1 ... 5] of integer;

b:array[1 ... 5] of integer;

t, i, m1, m2:integer;

begin

randomize;

clrscr;

writeln ('Vvedite T') ;

readln (t) ;

for i:=1 to 5 do

a[i]:=random (t+1) ;

b[i]:=random (t+1) ;

if a[i]
else

if b[i]
if m1>m2 then

begin

for i:=1 to 5 do

write (' ', a[i])

end

else

for i:=1 to 5 do

write (' ', b[i]) ;

writeln;

end.

Может не совсем красиво, но зато работает)))