Дан массив d1 , … , d19.

[Екатерина92]

Дан массив d1 , … , d19.

Определить S ФОРМУЛА НИЖЕ



Если S < 15.5, то заменить отрицательное di на d1.

[Hacker19_90]

А что такое S, которое меньше 15.5

[Екатерина92]

ща сек допишу сори

[Hacker19_90]

Ну как я понял должно быть что-то типа такого

program forum;
uses crt;
type
    Mas= array[1..19] of real;
var
   sum: real;
   m: Mas;
   i: byte;
begin
   clrscr;
   writeln ('Vvedite massiv');
   for i := 1 to 19 do
       Read (m[i]);
   writeln;
   for i := 1 to 10 do
   write (m[i]:2:3, ' ');
   Writeln;
   sum := 0;
   for i := 10 to 19 do
      sum := sum + m[i];
   if sum < 15.5 then 
       for i := 1 to 19 do
           if m[i] < 0 then m[i] := m[1];
   for i := 1 to 19 do
      write (m[i]:4:3);
   ReadKey;
end.