var
a: array[1..10] of integer; //Массив а
i, index: integer; //index - индекс последнего элемента с нечетным значением
begin
write('Исходный массив: ');
for i:= 1 to 10 do {Заполняем массив элементами в диапазоне [1..10], печатаем его и определяем индекс последнего элемента с нечетным значением}
begin
a[i]:= random(10) + 1;
write(a[i], ' ');
if a[i] mod 2 = 1 then index:= i;
end;
writeln;
writeln('Последний элемент с нечетным значением: a[', index, '] = ', a[index]);
end.
Отметь решение как лучшее)
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:4); end;
writeln;
for i:=1 to 15 do if a[i]>=0 then a[i]:=sqr(a[i]) else a[i]:=abs(a[i]);
for i:=1 to 15 do write(a[i]:4);
end.
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=2 else a[i]:=a[i]-5;
for i:=1 to 15 do write(a[i]:3);
end.
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
for i:=1 to 15 do if a[i] mod 6=0 then a[i]:=a[i] div 2 else a[i]:=a[i] div 5;
for i:=1 to 15 do write(a[i]:3);
end.
var a:array[1..15]of integer;
i,k:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
k:=a[3];
a[3]:=a[11];
a[11]:=k;
for i:=1 to 15 do write(a[i]:3);
end.
робот - автоматическое устройство, предназначенное для осуществления различного рода механических операций, которое действует по заранее заложенной программе.
Датчик - конструктивно обособленный первичный измерительный преобразователь, от которого поступают сигналы измерительной информации