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]<t then m1:=m1+1
else
if b[i]<t then m2:=m2+1;

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.

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

0 0

3 года назад

Производилась двухканальная стерео звукозапись с частотой дискретизации 32кГц и 16-битным разрешением. В результате был получен

Menanius [73]

Ответ:

5 минут

Объяснение:

Смотрите во вложении:

0 0

2 года назад

Помогите плиз( Графические объекты каких типов могут содержаться на слайдах презентации? В чём их отличия?

Сютин Александр М... [132]

Ну. простые, статические изображения и анимация. Статические изображения, ясное дело, не "двигаются", а анимация - gif или др. изображения, которые выполняют какие либо действия, в плане движения объектов и т.п.

0 0

1 год назад