Нужно решить еще задачу в паскале! Срочно

[Lenochka082]

Создать и вывести массив у элементами Yk=fi+10(K), где i=3, К=1,2,...,7.
второй отрицательный элемент заменить минимальным. В случае отсутствия
искомых данных вывести об этом сообщение. Выручайте!!!!


f - это наверно функция это вложенный файл. формула выделена там красным цветом!

[maladoy]

program oppa;
uses crt;
const pi=3.14;
       i=3;
var y:array [1..7] of real;
     k:integer;
begin
 for k:=1 to 7 do
  y[k]:= sin(sqr(i))*cos((7*i-2)/(3.75*pi))+10*k;
writeln('massiv y:');
for k:=1 to 7 do
writeln('y[',k,']=',y[k]:4:2);
readln;
end.

A если в нем нет отрицательных При i=3?

[Lenochka082]

по - моему там должны быть и отрицательные значения.

[maladoy]

program oppa;
uses crt;
const pi=3.14;
       i=3;
var y:array [1..7] of real;
     k:integer;
     min:real;
     l:integer;
     vo:integer;
begin
 for k:=1 to 7 do
  y[k]:= sin(sqr(i))*cos((7*i-2)/(3.75*pi))+10*k;
writeln('massiv y:');
min:=y[1];
vo:=0;
for k:=1 to 7 do
 if y[k]<min then min:=y[k];

for K:=1 to 7 do begin
 if y[k]<0 then vo:=vo+1;
 if vo=2 then begin
 y[k]:=min;
 vo:=vo+1;
 end;end;
for k:=1 to 7 do
writeln('y[',k,']=',y[k]:4:2);
writeln(min:4:2);
readln;
end.

From Stilet: Пользуйся пожалуйста тегом выделения кода.

[Lenochka082]

Огрномное спасибо!!!!!!!!!!