Ввести с клавиатуры массив из 5 элементов, найти в нем 2 максимальных элемента и их номера

@NickPaskalNoob · Регистрация: 08.10.2012

Author24 — интернет-сервис помощи студентам

надо сделать полное тело задачи, от program до end)
решение любыми способами

Ввести с клавиатуры массив из 5 элементов, найти в нем 2 максимальных элемента и их номера.
Пример:
Исходный массив:
4 -5 10 -10 5
максимальные А[3]=10, A[5]=5

@Дархан · 16.11.2012, 22:26

Pascal

Program asd;
var a:array[1..5] of integer;
max,min,Imax,Imin,i:integer;
begin
a[1]:=max;
a[1]:=min;
for i:=1 to 5 do
begin
if a[i]>max then 
max:=a[i];
if a[i]<min then
min:=a[i];
end;
writeln('max=',max);
writeln('min=',min);
readln;
end.

@konsul777 · 17.11.2012, 00:56

в программе находятся минимальный и максимальный элементы массива, а по условию нужно найти
я так понимаю номер двух максимумов и двух минимумов...

@Дархан · 17.11.2012, 18:09

Сообщение от Дархан

Pascal

Program asd;
var a:array[1..5] of integer;
max,min,Imax,Imin,i:integer;
begin
a[1]:=max;
a[1]:=min;
for i:=1 to 5 do
begin
if a[i]>max then
begin 
max:=a[i];
Imax:=i;
end;
if a[i]<min then
begin
min:=a[i];
Imin:=i;
end;
end;
writeln('max=',max,' ','Imax=',Imax);
writeln('min=',min,' ','Imin=',Imin);
readln;
end.

Так кажется правильнее

@NickPaskalNoob 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 13
		1
	Ввести с клавиатуры массив из 5 элементов, найти в нем 2 максимальных элемента и их номера 12.11.2012, 20:00. Показов 30533. Ответов 3 Метки нет (Все метки) надо сделать полное тело задачи, от program до end) решение любыми способами Ввести с клавиатуры массив из 5 элементов, найти в нем 2 максимальных элемента и их номера. Пример: Исходный массив: 4 -5 10 -10 5 максимальные А[3]=10, A[5]=5 0

@konsul777 4 / 4 / 2 Регистрация: 13.11.2012 Сообщений: 253
	17.11.2012, 00:56	3
	в программе находятся минимальный и максимальный элементы массива, а по условию нужно найти я так понимаю номер двух максимумов и двух минимумов... 0

	17.11.2012, 18:09