От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки морзе: - id913364920220302 от KsKitty 02.03.2022 01:00

Question

Информатика: От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки морзе: при передаче радиограммы было потеряно разбиение на буквы, но известно, что в радиограмме использовались только буквы: а .- д л т - ж определите текст диограммы

KsKitty · Accepted Answer

uses crt;
var a, b, c, i, n, j :integer;
s :array[1..10000] of integer;
begin
  clrscr;
  writeln('Введите размер массива');
  read(n);
  for i:=1 to n do
  begin
  s[i]:=random(46)-15;
  writeln ('s[', i,']=', s[i]);
  end;
  a:=s[1];for i:=1 to n do
  if s[i]>a then
  begin
  a:=s[i];
b:=i;
  end;
  writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.

MOGZ ответил