Разработка массивов данных

[Порфирий]

Разработка массивов данных

Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде КОИ-7. Определить максимальный элемент этого массива.

 

[Vladimir_S]

в коде КОИ-7

За это не ручаюсь. Какая установлена кодировка кириллицы, в той и будет. Во всяком случае, для латиницы это значения не имеет.

Var
 S:String;
 A:Array[1..255] of Byte;
 i,n,Mx:Byte;

Begin
 Writeln('Enter the string:');
 Readln(S);
 Mx:=0;
 i:=1;
 n:=0;
 Repeat
  if S[i]<>' ' then
   begin
    n:=n+1;
    A[n]:=Ord(S[i]);
    if A[n]>Mx then Mx:=A[n];
   end;
  i:=i+1;
 Until i>Length(S);
 for i:=1 to n do write(A[i]:4);
 writeln;
 writeln('Max = ',Mx);
 Readln
End.

 

[Порфирий]

Vladimir_S, а могли бы в виде Блок-схемы изобразить эту программу?

 

[Vladimir_S]

Vladimir_S, а могли бы в виде Блок-схемы изобразить эту программу?

Нет, не мог бы. Блок-схемами, извините, не занимаюсь и не пользуюсь. Поищите в Сети OnLine сервисы для рисования блок-схем по готовым программам, либо приложения, которые делают это же. Давно не проверял, но еще сравнительно недавно такого добра было навалом.
P.S. И да, если будете пользоваться такими сервисами, команду Readln во второй снизу строке уберите. (Это "останов", а на блок-схеме отобразится ввод непонятно чего. Лучше без неё).

 

[Порфирий]

ЗАДАНИЕ: Составить массив B[5] из суммы элементов строк матрицы A[5*6].
Я составил программу, но выдает какую-то ошибку. Помогите найти её и исправить.
Вот текст программы, который я написал.

const
m = 5;
n = 6;
var
a: array[1..m,1..n] of byte;
s: array[1..5] of byte;
i,j, sum: byte;
begin
randomize;
for i := 1 to m do begin
for j := 1 to n do begin
a[i,j] := random(10);
write (a[i,j]:3)
end;
writeln
end;
writeln ('vvivod:');
for j := 1 to n do begin
for i := 1 to m do begin
s[j] := s[j] + a[i,j];
sum := sum + a[i,j]
end;
write (s[j]:3)
end;
write ('sum = ', sum);
readln
end.

 

[Vladimir_S]

Я составил программу, но выдает какую-то ошибку

Естественно, выдаёт! Потому что j в цикле подсчета сумм у Вас меняется от 1 до 6, а массиву s Вы задаёте диапазон 1..5. Так что разбирайтесь внимательно со строками/столбцами.