Написать процедуру, выводящую на экран элементы одномерного массива через запятую и в обратном порядке

@Gregory007 · Регистрация: 09.12.2013

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

Написать процедуру, выводящую на экран элементы одномерного массива через запятую и в обратном порядке.

@Alex47_pro · 29.03.2014, 21:40

Pascal

uses crt;
const N=10;
procedure wrt(arr:array[1..N] of integer);
var i:integer;
begin
 for i:=N downto 1 do
 if i<>1 then
 write(arr[i],', ')
 else
 write(arr[i]);
end;
 
var arr:array[1..N] of integer;
    i:integer;
begin
writeln('Исходный массив:');
for i:=1 to N do
 begin
 arr[i]:=random(10);
 write(arr[i],' ');
 end;
writeln('Преобразованный массив:');
wrt(arr);
end.

@Gregory007 1 / 1 / 1 Регистрация: 09.12.2013 Сообщений: 28
		1
	Написать процедуру, выводящую на экран элементы одномерного массива через запятую и в обратном порядке 28.03.2014, 16:40. Показов 2179. Ответов 1 Метки нет (Все метки) Написать процедуру, выводящую на экран элементы одномерного массива через запятую и в обратном порядке. 0

	29.03.2014, 21:40

Опции темы

Написать процедуру, выводящую на экран элементы одномерного массива через запятую и в обратном порядке

Решение