pascalABC
Объяснение:
Задание 1
var
arr: array of integer;
n, i, max1, max2: integer;
begin
Write('Введите размер массива: ');
ReadLn(n);
SetLength(arr, n);
for i := 0 to n-1 do begin
arr[i] := random(100);
Write(' ', arr[i]);
end;
WriteLn;
max1 := arr[0];
max2 := arr[1];
if max1 < max2 then Swap(max1, max2);
for i := 2 to n-1 do begin
if arr[i] > max2 then max2 := arr[i];
if max1 < max2 then Swap(max1, max2);
end;
WriteLn(max1+max2,', ',max1,', ', max2);
end.
Задание 2
var
n, m, p, k, s: integer;
i, j: integer;
a: array[,] of integer;
begin
Write('Введите размер массива n и m: ');
ReadLn(n, m);
SetLength(a, n, m);
for i := 0 to n-1 do begin
for j := 0 to m-1 do begin
Write('a[',i,',',j,']=');
ReadLn(a[i,j]);
end;
end;
Write('Введите искомое число p= ');
ReadLn(p);
s:= -1;
for i := 0 to n-1 do begin
for j := 0 to m-1 do begin
if a[i,j] = p then
begin
k:=k+1;
if s=-1 then s:=i;
end;
end;
end;
if s>-1 then
begin
Write(k,', ');
for j:=0 to m-1 do Write(a[s,j],', ')
end
else
Write('0');
end.
Уже в начале следующего года в свободной продаже должен появиться новый вид памяти NRAM (nonvolatile random-access memory). Это будет первое компьютерное устройство, созданное с использованием нано-технологий (отдельные части памяти будут размером всего в несколько миллиардных долей метра, то есть в несколько атомов). Эксперты предрекают, что NRAM произведет революцию в области устройств хранения информации и полностью заменит существующие виды памяти уже к 2006-2007 году. Характеристики новой памяти кажутся просто фантастическими: использование нано-технологий позволяет увеличить плотность записи информации почти в 100 раз и скорость обмена информаций - почти во столько же. В результате минимальная емкость новой памяти будет составлять 10 Гбайт. А уже к середине следующего года производители обещают выйти на 50-гигобайтный уровень, что сопоставимо с емкостью жестких дисков современных винчестеров. Используемая сейчас память DDR хотя и появилась всего около года назад, но конкурировать с нано-технологией она не в состоянии: максимальный объем такой памяти ограничен сейчас 2 Гбайтами, а 10 Гбайт, с которых начинается NRAM, считается технологическим пределом DDR. Такие характеристики позволят нано-разработкам очень быстро вытеснить все существующие виды памяти, предрекают эксперты.
Но одной памятью применение нано-технологий не ограничивается. Нано-устройства постепенно выходят из лабораторий. Если в году объем рынка нано-технологий составил всего 2,5 млрд. евро, то уже в 2010 году, по прогнозам специалистов, он достигнет 100 млрд. евро, а к 2015 году - превысит 1 трлн. евро. И это не предел, а вполне возможно, весьма заниженные оценки. Ведь нано-технологии могут применяться во всех отраслях: от авиастроения до производства одежды и лекарств. Их использование перевернет представление о возможностях современной промышленности. Материалы, созданные в наномире по прочности будут в сотни раз превосходить сталь и при этом весить - в шесть раз меньше. Прототипы подобных материалов уже существуют, но пока их производство слишком дорого. Однако кое-что уже входит в повседневную жизнь: в Японии уже запущена в промышленное производство гибкая солнечная батарея, толщиной в несколько атомов, ею планируется покрывать всю поверхность автомобилей, использовать при производстве одежды и сотовых телефонов. Эти устройства станут полностью энергонезависимыми, получая электричество за счет преобразования солнечной энергии.
2)
(начало)
|взять портфель|
|наполнить книгами|
|одеть форму|
|надеть портфель|
/к школе готов/
(конец)
3)
(начало)
|надеть одежду|
|взять удочку|
|взять ведро для рыбы|
|взять приманку|
|позвать трех друзей|
|купить пиво|
/к рыбалке готов/
(конец)