Написать слова, образованные четными элементами каждой строки массива

@bimmer131 · Регистрация: 09.06.2008

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

@Nikon · 13.06.2008, 18:06

Pascal
1
2
3
4
5
6
7
8
9
10
var
a:array[1..5,1..5]of integer;
i,j:integer;
begin
for i:=1 to 5 do
  for j:=0 to 5 do
    begin
      if (j mod 2=0) then
        writeln(A[i,j]);
    end;

@bimmer131 · 13.06.2008, 18:20 **[ТС]**

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

@Nikon · 13.06.2008, 18:42

Как задал вопрос так и ответил! Так какой тип массива должен быть??? И какова его размерность??? Если выводить "средний столбик" то он должен быть не чётный?

@bimmer131 · 13.06.2008, 18:53 **[ТС]**

кароче надо вывести на экран каждый второй элемент матрицы

@Puporev · 14.06.2008, 06:35

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const n=5;
var a:array[1..n] of string;//массив строк
s:array[1..n,1..20]of string;//двумерный массив слов
i,j,k,p:integer;
begin
clrscr;
for i:=1 to n do
begin
write('Str ',i,':');//вводим строки
readln(a[i]);
end;
i:=1;p:=0;
repeat
k:=1;
for j:=1 to length(a[i]) do
begin
if a[i][j]=' ' then k:=k+1 //разбираем очередную строку на слова и считаем их
else s[i,k]:=s[i,k]+a[i][j];
end;
for p:=1 to k do
if p mod 2=0 then write(s[i,p],' ');//четные слова в каждой строке выводим на экран
i:=i+1;
until i>n;
readln
end.

@bimmer131 · 19.06.2008, 20:36 **[ТС]**

че то она мне ни че не выводит. Там в пустых ковычках не надо вбивать ни чего?. Просит ввести строку 1, 2 и т.д. , я ввожу и она ни че не делает

@Puporev · 19.06.2008, 20:42

if p mod 2=0 then write(s[i,p],' '

Если ты имеешь в виду эту строчку, то между кавычками-пробел, это-то надо знать. Без пробела ' ' это значит пустая строка. Хоть немного-то думайте, а то сидите и тупо готовую программу прогнать не можете.

@bimmer131 · 19.06.2008, 21:20 **[ТС]**

я про 18ую строку. В общем прога запрашивает ввести 5 строк, я ввожу, а она ни че не делает

@Puporev · 19.06.2008, 21:29

if a[i][j]=' ' then k:=k+1

Так здесь тоже пробел, неужели непонятно. Может ты строки без пробелов вводишь? Каждая строка это несколько слов, разделенных одним пробелом.

Добавлено через 3 минуты
Вот сейчас скопировал свой код, запустил, все работает. Короче делай все по человечески и думай.

@bimmer131 · 19.06.2008, 21:36 **[ТС]**

б..ть , это я затупил жестоко

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@bimmer131 0 / 0 / 0 Регистрация: 09.06.2008 Сообщений: 45

	Написать слова, образованные четными элементами каждой строки массива 13.06.2008, 15:45. Показов 3156. Ответов 10 Метки нет (Все метки) Написать слова, образованные четными элементами каждой строки массива 0

@bimmer131 0 / 0 / 0 Регистрация: 09.06.2008 Сообщений: 45
	13.06.2008, 18:20 [ТС]
	не то . надо вводить элементы матрицы и из тех которые в среднем столбике получить предложение или слово в зависимости от того, что мы вбиваем в матрицу 0

@Nikon 0 / 0 / 0 Регистрация: 29.05.2008 Сообщений: 8
	13.06.2008, 18:42
	Как задал вопрос так и ответил! Так какой тип массива должен быть??? И какова его размерность??? Если выводить "средний столбик" то он должен быть не чётный? 0

@bimmer131 0 / 0 / 0 Регистрация: 09.06.2008 Сообщений: 45
	13.06.2008, 18:53 [ТС]
	кароче надо вывести на экран каждый второй элемент матрицы 0

@bimmer131 0 / 0 / 0 Регистрация: 09.06.2008 Сообщений: 45
	19.06.2008, 20:36 [ТС]
	че то она мне ни че не выводит. Там в пустых ковычках не надо вбивать ни чего?. Просит ввести строку 1, 2 и т.д. , я ввожу и она ни че не делает 0

@bimmer131 0 / 0 / 0 Регистрация: 09.06.2008 Сообщений: 45
	19.06.2008, 21:20 [ТС]
	я про 18ую строку. В общем прога запрашивает ввести 5 строк, я ввожу, а она ни че не делает 0

@bimmer131 0 / 0 / 0 Регистрация: 09.06.2008 Сообщений: 45
	19.06.2008, 21:36 [ТС]
	б..ть , это я затупил жестоко 0