Задание 4

Написать программу, создающую одномерный массив из 15 элементов. Значения членов массива вводятся при выполнении программы. Программа должна находить минимальный и максимальный члены массива и их номера.

Question

Информатика

Арсеныч

11 декабря, 23:15

Задание 4

Написать программу, создающую одномерный массив из 15 элементов. Значения членов массива вводятся при выполнении программы. Программа должна находить минимальный и максимальный члены массива и их номера.

+1

Ответы (2)

Знаешь ответ?

Сократ · Answer 1

Var a: array[1 ... 15] of integer;

i, imin, imax: integer;

begin

imax:=1;

imin:=1;

for i:=1 to 15 do

begin

readln (a[i]);

if a[i]
if a[i]>a[imax] then imax:=i;

end;

writeln ('Минимальный член массива ', a[imin], ', его номер ', imin);

writeln ('Максимальный член массива ', a[imax], ', его номер ', imax);

end.

Тина · Answer 2

Программа на Паскаль.

Program Dik;

Var

i, min, max, minnum, maxnum: integer;

a: array[1 ... 15] of integer;

Begin

for i: = 1 to 15 do

readln (a[i]);

max:=a[1]; min:=a[1];

for i: = 1 to 15 do begin

if a[i]
min:=a[i]; minnum:=i;

end;

if a[i]>max then begin

max:=a[i]; maxnum:=i;

end;

end;

writeln ('max=', max);

writeln ('min=', min);

writeln ('maxnum=', maxnum);

writeln ('minnum=', minnum);

end.