| Основная информация Дата рождения: 9 Ноября Пол: Мужской Семейное положение: женат Контакты Город: Санкт-Петербург VK: webenergy78 | Образование Место учёбы: СПбГУВК (бывш. ЛИВТ) Факультет: Информационных технологий Форма обучения: Очное отделение Статус: Доктор наук Год окончания: 2010 Училище: Училище олимпийского резерва (ВУОР) 2000-2011специализация: Прикладная информатика и математика |
| Жизненная позиция Полит. предпочтения: умеренные Мировоззрение: Religious sights: Orthodoxy | Личные интересы Интересы: I love Computer science. I study to program on Delphi. I participate in a professional command of KVN " 34 region ". And супер a command " Laughter-it simply Любимые фильмы: Horrors, comedies, adventures, Still I love University, are happy together. A wood-grouse Любимые телешоу: Comedy Club Наша Russia Любимые книги: Delphi 7 **** Pascsl О себе: I love motor-technics, repair and to drive on a motorcycle or by the machine Любимые цитаты:
var i,n,max,max1:integer;
A: array [1..100000] of integer;
B: array [1..100000] of integer;
C: array [1..100000] of integer;
begin
randomize;
Writeln('%&$%^&%%');
read(n);
write ('Массив A ');
for i:=1 to n do Begin
A[i]:= random (46)-15;
Write (A[i]:5);
end;
Writeln;
write ('Массив B ');
for i:=1 to n do Begin
b[i]:=random (38)+25;
Write (B[i]:5);
end;
Writeln;
write ('Массив C ');
max:=A[1];
max1:=B[1];
for i:=1 to n do Begin
If a[i]>max then max:=a[i];
If b[i]>max1 then max1:=b[i];
end;
if max > max1 Then Begin
For i:=1 to n do Begin
c[i]:=max;
Write (c[i]:5)
End;
end
Else Begin
For i:=1 to n do Begin
c[i]:=max1;
Write (c[i]:5)
end;
end;
end |