Задание 4

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

Question

Информатика

Кося

24 июля, 01:43

Задание 4

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

+3

Ответы (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.