Вводятся три одномерных массива а(15), в(20), с(10). найти тот массив, который имеет наименьшее значение максимального по абсолютной величине элемента. вывести на печать массив и максимальный по модулю элемент.
var a: array[1..15] of integer; b: array[1..20] of integer; c: array[1..10] of integer; i, maxa, maxb, maxc: integer;
begin maxa := 0; for i := 1 to 15 do begin read(a[i]); if abs(a[i]) > maxa then maxa := abs(a[i]); end; maxb := 0; for i := 1 to 20 do begin read(b[i]); if abs(b[i]) > maxb then maxb := abs(b[i]); end; maxc := 0; for i := 1 to 10 do begin read(c[i]); if abs(c[i]) > maxc then maxc := abs(c[i]); end; if (maxa > maxb) and (maxa > maxc) then begin for i := 1 to 15 do write(a[i], ' ');writeln;writeln(maxa); end else if (maxb > maxa) and (maxb > maxc) then begin for i := 1 to 20 do write(b[i], ' ');writeln;writeln(maxb); end else if (maxc > maxb) and (maxc > maxa) then begin for i := 1 to 10 do write(c[i], ' ');writeln;writeln(maxc); end; end.
Живёт одна лошадь за городом.У неё есть и деньги,и еда,и своё жильё.Читала это лошадка книжки и была самой умной лошадью в посёлке "Копыто".У неё была целая библиотека этих книг!Но слыхала она что есть такой предмет "ноутбук".Всё у лошади было, а ноутбука нет. Пошла лошадь по магазинам и купила себе 4 ноутбука,себе,соседке,детям и своим родителям. Хорошо лошадь жила с ноутбуком,прекрасно! В онлайне находила нужные ей книжки,игралась чуток в скачки и в покер.Услышала она про планшет.Пошла по магазину купила самый модный,самый красивый,самый большой планшет.Тоже был удобен,но ноутбук был по душе.Весь день в покер играла! А с планшетом с папой общалась,фото фотографировала.Но от ноутбука не отказалась! Продала планшет,ненужная вещь.А за эти деньги присоединила себе интернет!И жила лошадь в обнимку с ноутбуком.
Program arrays; var a:array [1..3,1..6] of integer; i,j:byte; begin for i:=1 to 3 do for j:=0 to 1 do begin a[i,1+3*j]:=random(101)+10; a[i,2+3*j]:=random((1001)+100) div (i+2*j); a[i,3+3*j]:=(random(101)+10) mod 10; end; for i:=1 to 3 do begin for j:=1 to 6 do write(a[i,j],' '); writeln; end; end.
var
a: array[1..15] of integer;
b: array[1..20] of integer;
c: array[1..10] of integer;
i, maxa, maxb, maxc: integer;
begin
maxa := 0;
for i := 1 to 15 do
begin
read(a[i]);
if abs(a[i]) > maxa then maxa := abs(a[i]);
end;
maxb := 0;
for i := 1 to 20 do
begin
read(b[i]);
if abs(b[i]) > maxb then maxb := abs(b[i]);
end;
maxc := 0;
for i := 1 to 10 do
begin
read(c[i]);
if abs(c[i]) > maxc then maxc := abs(c[i]);
end;
if (maxa > maxb) and (maxa > maxc) then begin for i := 1 to 15 do write(a[i], ' ');writeln;writeln(maxa); end
else if (maxb > maxa) and (maxb > maxc) then begin for i := 1 to 20 do write(b[i], ' ');writeln;writeln(maxb); end
else if (maxc > maxb) and (maxc > maxa) then begin for i := 1 to 10 do write(c[i], ' ');writeln;writeln(maxc); end;
end.