Заполнить массив и заменить последний положительный элемент на второй элемент массива Паскаль
Заполнить массив и заменить последний положительный элемент на второй элемент массива Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы