Program DaNNuu;
uses crt;
const n=3;
var
a:array [1..n] of integer;
i,j,min,temp:integer;
begin
randomize;
{создание массива}
writeln('Элементы массива:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i]:5);
end;
{сортировка массива}
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
if a[min]>a[j] then
min:=j;
temp:=a[i];
a[i]:=a[min];
a[min]:=temp;
end;
writeln();
{вывод массива}
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i]:5);
end.
Program Natasha1925;
uses crt;
const n=50;
var
a:array[1..n] of integer;
tri:array[1..n] of integer;
nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
nom:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
nom:=nom+1;
tri[nom]:=i;
end;
end;
if nom = 0 then
writeln('Элементов, кратных 3, нет!: ')
else
begin
writeln('Номера элементов, кратных 3: ');
for i:=1 to nom do
begin
write(tri[i],' ');
end;
end;
writeln();
end.