Напечатать слова, образованные нечетными элементами каждого столбца матрицы - Pascal ABC

Формулировка задачи:

Дан двумерный массив, элементами которого являются отдельные символы.Напечатать слова, образованные нечетными элементами каждого столбца массива. Помогите пожалуйста, нужна написать на Паскале ABC. Добавлено через 8 минут Как переделать эту программу под мой случай задание для этой программы:написать слова, образованные четными элементами каждой строки массива const n=5; var a:array[1..n] of string;//массив строк s:array[1..n,1..20]of string;//двумерный массив слов i,j,k,p:integer; begin 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.

Код к задаче: «Напечатать слова, образованные нечетными элементами каждого столбца матрицы - Pascal ABC»

textual
const m=5; n=5;
var
  a: array [1..m,1..n] of Char;
...
  for j:=1 to n do begin
    i:=1; while i<=m do begin Write(a[i,j]); Inc(i,2); end; WriteLn;
  end;

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 3.571 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы