Скачать программы    Все программы автора

Задание № 29

Требуется вывести на бумагу номера и значения максимальных элементов среди элементов nepnoro, второго и третьего десятка целочисленного массива a[1..30]. В программе номера этих элементов обозначены nl, а их значения — ml; переменная num обозначает номер рассматриваемого десятка (num = 1, 2, 3).

program pr4;

uses printer;

var a: array[1..30] of integer;

i, nl, ml: integer;

procedure nmax (num: integer; var n, m: integer);

var k: integer;

d: array[1..10] of integer;

begin

for k:=l to 10 do

d[k] := a[k+10*num];

n:=l;

m:=d[l];

for k:=2 to 10 do

if d[kJ > m then begin

m := d[k];

n := k;

end;

n:=n+10*num;

end;

begin

writeln ('Введите значения элементов массива');

for i:=l to 30 do read (a[i]);

nmax (0, nl, ml);

writeln (1st, nl, ml);

nmax (1, nl, ml);

writeln (1st, nl, ml);

nmax (2, nl, ml);

writeln (1st, nl, ml);

end.