program laba;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
var
a:array[1..15] of integer;
i,imax,x:integer;
begin
SetConsoleoutputCP(1251);
for i:=1 to 15 do
begin
writeln('Введите',i,'-й элемент');
readln(a[i]);
end;
imax:=1;
for i:=2 to 15 do
if a[i]>a[imax] then imax:=i;
x:=a[15];
writeln('максимальное число = ',a[imax],' его индекс= ',imax);
if imax=15 then write('Он последний, обмена нет');
else
begin
x:=a[imax];
a[imax]:=a[15];
a[15]:=x;
writeln('Обмен максимального и последнего:');
for i:=1 to 15 do
write(a[i]:6:3,' ');
end;
readln;
end.
Объяснение:
Sub Swap()
Dim r As Range, A As Variant
Dim i As Integer, im As Double, n As Integer, t As Double
n = 15
Set r = Range(Cells(1, 1), Cells(1, n))
A = r
im = 1
For i = 2 To n
If A(1, i) > A(1, im) Then
im = i
End If
Next i
t = A(1, im)
A(1, im) = A(1, n)
A(1, n) = t
Set r = Range(Cells(2, 1), Cells(2, n))
r = A
End Sub
На лист в ячейки А1 - О1 заносим исходные 15 чисел
На этот же лист через проект помещаем макрос и запускаем.
Результат будет в ячейках А2 - О2
Определние "информация" для человека становится все шире и шире, с каждым днем все полезнее, и одновременно сложней в усвоении и образовании.
Информация в жизни человека играет важную роль в повседневной жизни, начиная с работы и быта, заканчивая интернет технологиями. Информация человеку сохранить , создать и следовать истории. Благодаря инфоормации человечество имеет возможность передавать и получать знания в изначальной точности. Цифры, буквы, изображения , формулы и даже звуки , все это частицы нашей информации, которую получив, возможно обработать и модернизировать, так и получается, модернизировав информацию мы не стоим на месте, наука и технологии идут вперед.
Информация человеку изучить и применить свои знания, взяв к примеру одну ситуацию, один человек собирается написать письмо другому человеку, естественно в наше время проще написать и отправить письмо воспользовавшись электронными технологиями, сделать это намного проще и быстрее, пускай и не через компьютер, но через телефон становится все проще и проще. И поэтому для того чтобы попросить человека на расстоянии "купить на обратном пути хлеба" , достаточно всего лишь набрать нужную информацию в сообщении телефона и отправить ее человеку.
P.s.
Что то типа того, может примеры не особо понравятся, можешь отредактировать, вставить что то свое , или добавить.