// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=new List<real>; a.AddRange(ReadSeqReal('Введите список А:',10)); var b:=new List<real>; b.AddRange(ReadSeqReal('Введите список B:',10)); var x:=new List<real>; x.AddRange(a.Zip(b,(p,q)->q/p)); Write('A: '); a.Println; Write('B: '); b.Println; Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println; end.
Обратите внимание на то, что использование переменных c,k,j совершенно не нужно. Также в переменных
max,min лучше запоминать индексы, чтобы затем выполнить реверс.
const n = 10;
type mass = array[1..n] of integer;
var
a: mass;
i, max,min: integer;
begin
randomize;
for i := 1 to n do
A[i] := random(20)-10;
for i := 1 to n do
write(a[i]:3);
writeln();
// В переменных max и min будем запоминать
// ИНДЕКСЫ макс. и мин. элементов
max := 1;
min := 1;
for i := 1 to n do begin
if a[i] > a[max] then max := i;
if a[i] < a[min] then min := i;
end;
Writeln('A[',max,'] = ',a[max]);
Writeln('A[',min,'] = ',a[min]);
// Меняем местами max и min
i := a[max];
a[max]:=a[min];
a[min]:=i;
// Выводим результат на экран
for i := 1 to n do write(a[i]:3);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new List<real>;
a.AddRange(ReadSeqReal('Введите список А:',10));
var b:=new List<real>;
b.AddRange(ReadSeqReal('Введите список B:',10));
var x:=new List<real>;
x.AddRange(a.Zip(b,(p,q)->q/p));
Write('A: '); a.Println;
Write('B: '); b.Println;
Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println;
end.
Пример
Введите список А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите список B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2