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

Паскаль

Question

Информатика

Агна

14 февраля, 12:08

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

Паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Надюха · Answer 1

var mas:array[1 ... 5] of integer; i:integer;

begin

for i:=1 to 5 do readln (mas[i]) ;

mas[5]:=mas[2];

writeln (mas[1], mas[2], mas[3], mas[4], mas[5]) ;

readln;

end.

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

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

Паскаль