begin writeln('Введите диапазон:'); write('От:'); var a:= ReadInteger; // Ввод а с целым типом write('До:'); var b:= ReadInteger; // Ввод б с целым типом
var m:array[1..10] of integer; // описание массива
writeln('Начальный массив: '); for var i:=1 to 10 do // генерация и вывод массива begin m[i]:=random(a,b); write(m[i]:4); end;
writeln;
for var i:=1 to 2 do // переворот первой части обмена 1 с 5, 2 с 4) begin var t:=m[i]; m[i]:=m[6-i]; m[6-i]:=t; end;
for var i:=6 to 7 do // переворот второй части обмена 6 с 10, 7 с 9) begin var t:=m[i]; m[i]:=m[16-i]; m[16-i]:=t; end; writeln('Измененный массив:'); // вывод измененного массива for var i:=1 to 10 do write(m[i]:4); end.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var p:=ArrRandom(40,-99,99); p.Println; // максимум среди четных var max:=p.Select((v,i)->(v,i)).Where(t->t[1].IsOdd).Max(t->t[0]); // первый из четных индексов элементов, равных max var im:=p.IndexesOf(t->t=max).Where(t->t.IsOdd).First; // домножаем... for var i:=0 to im-1 do p[i]*=max; p.Println end.
//Версия 3.3. сборка 1583 (25.11.2017)
begin
writeln('Введите диапазон:');
write('От:'); var a:= ReadInteger; // Ввод а с целым типом
write('До:'); var b:= ReadInteger; // Ввод б с целым типом
var m:array[1..10] of integer; // описание массива
writeln('Начальный массив: ');
for var i:=1 to 10 do // генерация и вывод массива
begin
m[i]:=random(a,b);
write(m[i]:4);
end;
writeln;
for var i:=1 to 2 do // переворот первой части обмена 1 с 5, 2 с 4)
begin
var t:=m[i];
m[i]:=m[6-i];
m[6-i]:=t;
end;
for var i:=6 to 7 do // переворот второй части обмена 6 с 10, 7 с 9)
begin
var t:=m[i];
m[i]:=m[16-i];
m[16-i]:=t;
end;
writeln('Измененный массив:'); // вывод измененного массива
for var i:=1 to 10 do
write(m[i]:4);
end.