Паскаль.Строки.массивы.

[Анастасия***]

1.Задача на массив.

В двумерном массиве С (10, 10) произвольных чисел найти наименьший элемент побочной диагонали.


2.Задача на строки.

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

[ByAlex]

Сообщение от Анастасия***

1.Задача на массив.

В двумерном массиве С (10, 10) произвольных чисел найти наименьший элемент побочной диагонали.


2.Задача на строки.

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

Привет! Первая вот так -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Arr:array[1..10,1..10] of integer;
  i,j,min:integer;
begin
  writeln('The matrix [10,10] - ');
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      Arr[i,j]:=random(20);
      write(Arr[i,j],' | ');
    end;
    writeln;
  end;
  writeln;
  min:=Arr[10,10];
  for i := 10 downto 1 do
    for j := i downto 1 do
      if Arr[i,j]<min then
        min:=Arr[i,j];
  write('Min = ',min);
  readln;
end.

[Анастасия***]

привет,спасибо большое))

[ByAlex]

Сообщение от Анастасия***

привет,спасибо большое))

Вот вторая на скорую руку -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Glasnye:set of char;
  Str, StrTemp:string;
  i, j, kol:integer;
begin
  StrTemp:='';
  Glasnye:=['a','e','i','o','u','y'];
  write('Vvedite stroku - ');
  readln(Str);
  for i := 1 to length(Str)+1 do
  begin
    if Str[i] in ['a'..'z'] then
      StrTemp:=StrTemp+Str[i]
    else
    begin
      if (length(StrTemp)>=2) or (StrTemp='i') then
      begin
        for j := 1 to length(StrTemp) do
          if StrTemp[j] in Glasnye then
            inc(kol);
      end;
      StrTemp:='';
    end;
  end;
  writeln;
  write('Kol = ',kol);
  readln;
end.

Только это для английского языка!

[Анастасия***]

ой спасибо тебе)))