С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/41: Рейтинг темы: голосов - 41, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 17

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

30.11.2010, 16:44. Показов 8139. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.11.2010, 16:44
Ответы с готовыми решениями:

Распечатать числа в обратном порядке по 6 чисел в строке
1) В прямоугольной матрце, размерностью n*m, заполненной случайным образом числами из промежутка , найти сумму и количество элементов...

Распечатать элементы массива в обратном порядке по 6 чисел в строке.
Помогите пожалуйста решить :)) И что-бы программка была простая и работала на TURBO PASCAL ) В зарание спасибо Дано N чисел....

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

8
 Аватар для dr.curse
404 / 360 / 36
Регистрация: 11.10.2010
Сообщений: 1,907
30.11.2010, 16:51
Pascal
1
2
3
4
5
6
7
8
9
10
11
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% правельный
1
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
30.11.2010, 16:56
а все проще намного можно зделать!
1
 Аватар для dr.curse
404 / 360 / 36
Регистрация: 11.10.2010
Сообщений: 1,907
30.11.2010, 16:59
ChameleoN, kak?
1
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
30.11.2010, 17:05
ща напишу

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
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 секунд
хотя...
1
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
30.11.2010, 17:53
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
SuPeR XaKer, зря мы тогда про константы разговаривали((, никто из этого урока не получил
0
ТруЪ Одмин Всiя Руси
 Аватар для ChameleoN
71 / 71 / 14
Регистрация: 20.11.2010
Сообщений: 284
30.11.2010, 18:07
константы легко прописать
0
0 / 0 / 1
Регистрация: 24.01.2011
Сообщений: 30
24.01.2011, 19:28
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение

Не по теме:

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

ну можно сгенерировать случайные числа с помощью RANDOM'a и не париться)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.01.2011, 19:28
Помогаю со студенческими работами здесь

Распечатать элементы массива в обратном порядке по шесть чисел в строке
напишите пожалуйста текст программы. Дано 24 целых числа. Распечатать их в обратном порядке по шесть чисел в строке.

Массивы. Дано n целых чисел. Распечатать их в обратном порядке по 4 числа в строке
не знаю каким образом вставить endl. На сколько я понимаю, нужно сделать так, чтобы когда количество индексов по модулю будет равно 0, то...

Распечатать элементы массива в обратном порядке по 4 числа в строке
Дан массив целых чисел, состоящий из 44 целых элементов из диапазона от -45 до 55,введенных произвольным образом: 1)Распечатайте...

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

Напечатайте числа в обратном порядке по 6 чисел в строке
int mas2; for(int i=0;i<100;i++) { mas2=rand()%20+40; printf("%3d ",mas2); } int b=99,c=93; for(int...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru