Заменить последний положительный элемент на второй элемент массива

@keevs · Регистрация: 12.10.2012

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

Дан масиив из n целых чисел.
Заменить последний положительный элемент на второй элемент массива.

@Дархан · 22.12.2012, 21:58

Pascal

var a:array[1..1000] of integer;
i,n,x:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i],' ');
end;
i:=n
while (a[i]>0) do
i:=i-1;
x:=a[i];
a[i]:=a[2];
a[2]:=x;
for i:=1 to n do
write(a[i],' ');
readln
end.

@isqoff · 22.12.2012, 22:42

исходя из условия задачи так правильнее

Pascal

uses crt;
var a:array[1..10] of integer;
    i,n,buf:integer;
BEGIN
 
     write('исходный массив :');
     
     for i:=1 to 10 do
     begin
          a[i]:=random(11)-5;
          write(a[i]:3);
     end;
 
    n:=0;
    for i:= 1 to 10 do
        if a[i]> 0 then n:= i;
        
    buf:= a[2];
    a[2]:= a[n];
    a[n]:= buf;
    
    writeln;
    write('полученный массив :');
     
    for i:=1 to 10 do  write(a[i]:3);
 
END.

@keevs -4 / 1 / 0 Регистрация: 12.10.2012 Сообщений: 34
		1
	Заменить последний положительный элемент на второй элемент массива 22.12.2012, 21:48. Показов 4503. Ответов 2 Метки нет (Все метки) Дан масиив из n целых чисел. Заменить последний положительный элемент на второй элемент массива. 1

	22.12.2012, 22:42

Опции темы

Заменить последний положительный элемент на второй элемент массива

Решение