Вывести названия дней недели в массив, вывести их на экран в строку, дальше из новой строке в зворотнему порядке

@boxing · Регистрация: 11.04.2011

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

@ALXS · 12.04.2011, 21:53

Pascal

program tryam;
uses
    crt;
var
   i:integer;
   M:array [1..7] of string;
begin
     clrscr;
     for i:=1 to 7 do //ну семь ведь дней в неделе
     begin
     writeln('vvedite ',i,' den'); //вводим эти самые дни
     readln(M[i]); //запоминаем их в массив
     end;
     for i:=1 to 7 do // вывод в строку по порядку
     write(M[i],' ');
     writeln('');
     for i:=7 downto 1 do //вывод в обратном порядке
     write(M[i],' ');
     readln;
end.

а может даже и так)

@boxing 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 18
		1
	Вывести названия дней недели в массив, вывести их на экран в строку, дальше из новой строке в зворотнему порядке 12.04.2011, 13:46. Показов 3693. Ответов 1 Метки нет (Все метки) Вывести названия дней недели в массив, вывести их на экран в строку, дальше из новой строке в зворотнему порядке 0

	12.04.2011, 21:53

Вывести названия дней недели в массив, вывести их на экран в строку, дальше из новой строке в зворотнему порядке

Решение