в последовательности

@ruslan19693 · Регистрация: 21.05.2011

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

в последовательности из n чисел:max элемент поменять с 3 элементом

@Amid007 · 25.05.2011, 16:06

program mas;
uses crt;
var a: array [1..10] of integer;
i,max,c,b: integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']= ');
readln(a[i]);
end;
max:=a[1];

for i:=1 to 10 do
if a[i]>max then
begin
max:=a[i];
end;
c:=a[3];
a[3]:=max;
a[i]:=c;
for i:=1 to 10 do
writeln('a[',i,']= ',a[i]);
readln;
end.

@ruslan19693 0 / 0 / 0 Регистрация: 21.05.2011 Сообщений: 43
		1
	в последовательности 25.05.2011, 11:02. Показов 344. Ответов 1 Метки нет (Все метки) в последовательности из n чисел:max элемент поменять с 3 элементом 0

@Amid007 63 / 63 / 51 Регистрация: 20.05.2011 Сообщений: 116
	25.05.2011, 16:06	2
	program mas; uses crt; var a: array [1..10] of integer; i,max,c,b: integer; begin clrscr; for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end; max:=a[1]; for i:=1 to 10 do if a[i]>max then begin max:=a[i]; end; c:=a[3]; a[3]:=max; a[i]:=c; for i:=1 to 10 do writeln('a[',i,']= ',a[i]); readln; end. 1