Сорри за синус, условие не так понял. Насчет радиан, думаю это не страшно.
Да, 2-я действительно не так решена. Кошак, молодец, я не заметил... С функцией все правильно, а скобочка действительно не там стоит, думаю Хром просто торопился... Так, что не стоит уж так... Сорри, что ошибки вчера не заметил, код просматривал по диагонали, Кошаку респект.
Вот правильное решение (массив заполняется руками, думаю это правильнее):

code:

uses crt;
var
i,index : word;
m : array [1..14] of Integer;
begin clrscr;
 for i :=1 to 14 do
  begin
   write('m[', i ,'] ');
   readln(m[i]);
  end;
for i:=14 downto 1 do
 If m[i]<0 then
  begin
   index:=i;
   break;
  end;
if index<>0 then
 writeln('Index = ',index)
else
 writeln(' нету не фига  ');
readkey;
end.

Адрес поста | Один пост | Сообщить модератору | IP: Logged