Из предложенных вариантов слов выберите то для которого истинно высказывание. первая буква слова согласная тли вторая буква слова гласная и последняя буква гласная 1. ирис 2. палка 3. словарь

2.Палка

Сделано на паскале, тот же делфи, но возможно придется разтосовать кусками, в зависимости от тго что именно надо получить в конце

const
    n = 25;

var
    i, imax: integer;
    s, s7: real;
    a, b: array[1..n] of real;

begin
    imax := 1;
    for i := 1 to n do
    begin
        a[i] := random(10 + 50) - 10;
        write(a[i], ' ');
        
        s := s + a[i];
        if (a[i] > 0) and (round(a[i]) mod 7 = 0) then
            s7 := s7 + a[i];
        s := s + a[i];
        if a[imax] < a[i] then imax := i;
    end;
    writeln();
    
    a[imax] := s / n;
    
    for i := 1 to n do
        write(a[i], ' ');
    writeln();
    
    writeln(s7);
end.

//Сегодня буду скучным
//Pascal ABC.NET v3.1 сборка 1219

Const
 n=20;

Var
 ar:array[1..n] of integer;
 i,s,k,min,j:integer;
begin
 randomize;
 min:=2147483647;
 for i:=1 to 10 do
 ar[i]:=random(-15,21);
 for i:=11 to 17 do
 ar[i]:=i*6;
 for i:=18 to n do
 readln(ar[i]);
 writeln('Array:');
 for i:=1 to n do
 write(ar[i]:4);
 writeln;
 i:=2;
 while i<>n+2 do
 begin
 s:=s+ar[i];
 i:=i+2;
 end;
 writeln('Sum=',s);
 for i:=1 to n do
 if ar[i]>0 then k:=k+1;
 writeln('Count of positive elements=',k);
 for i:=10 to n do
 if min>ar[i] then min:=ar[i];
 writeln('Min=',min);
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if ar[i]<ar[j] then
    begin
     k:=ar[i];
     ar[i]:=ar[j];
     ar[j]:=k;
    end;
 writeln('Sorted array:');
 for i:=1 to n do
 write(ar[i]:4);
end.