Распечатать их в обратном порядке по 6 чисел в строке

@zzScorpioNzz · Регистрация: 01.03.2010

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

Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.

@dr.curse · 30.11.2010, 16:51

Pascal

var i:integer;
a:array [1..100] of longint;
begin
    for i:=1 to 100 do readln(a[i]);
    for i:=100 downto 1 do 
    begin
        write(a[i],' ');
        inc(k);
        if k=6 then begin writeln; k=0 end;
    end
end.

100% правельный

@ChameleoN · 30.11.2010, 16:56

а все проще намного можно зделать!

@dr.curse · 30.11.2010, 16:59

ChameleoN, kak?

@ChameleoN · 30.11.2010, 17:05

ща напишу

Добавлено через 2 минуты

Pascal

var
i,j : integer;
a : array[1..100] of integer;
begin
for i := 1 to 100 do
readln(a[i]);
for i := 100 downto 1 do
for j := 1 to 6 do
write(a[i]);
writeln;
readln;
end.

Добавлено через 37 секунд
хотя...

@SuPeR XaKer · 30.11.2010, 17:53

for i := 1 to 100 do
readln(a[i]);

Не по теме:

ох даже тёщи не пожелаю такого.

@Dekio · 30.11.2010, 17:56

SuPeR XaKer, зря мы тогда про константы разговаривали((, никто из этого урока не получил

@ChameleoN · 30.11.2010, 18:07

константы легко прописать

@koksa · 24.01.2011, 19:28

Сообщение от SuPeR XaKer

Не по теме:

ох даже тёщи не пожелаю такого.

ну можно сгенерировать случайные числа с помощью RANDOM'a и не париться)

@zzScorpioNzz 0 / 0 / 0 Регистрация: 01.03.2010 Сообщений: 17
		1
	Распечатать их в обратном порядке по 6 чисел в строке 30.11.2010, 16:44. Показов 7781. Ответов 8 Метки нет (Все метки) Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке. 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	30.11.2010, 16:56	3
	а все проще намного можно зделать! 1

@dr.curse 403 / 359 / 36 Регистрация: 11.10.2010 Сообщений: 1,907
	30.11.2010, 16:59	4
	ChameleoN, kak? 1

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	30.11.2010, 17:53	6
	for i := 1 to 100 do readln(a[i]); Не по теме: ох даже тёщи не пожелаю такого. 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	30.11.2010, 17:56	7
	SuPeR XaKer, зря мы тогда про константы разговаривали((, никто из этого урока не получил 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	30.11.2010, 18:07	8
	константы легко прописать 0

@koksa 0 / 0 / 1 Регистрация: 24.01.2011 Сообщений: 30
	24.01.2011, 19:28	9
	Сообщение от SuPeR XaKer Не по теме: ох даже тёщи не пожелаю такого. ну можно сгенерировать случайные числа с помощью RANDOM'a и не париться) 0

Опции темы