profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

Написать программу, заполняющую массив из 10 элементов по следующему правилу: А(i) = (2*i – 1)/cos(i)

Помогите срочно!!!

  1. Ответ
    Ответ дан kolesin
    var a:array[1..10] of real; i:integer;
    begin
    for i:=1 to 10 do
    a[i]:=(2*i-1)/cos(i);
    for i:=1 to 10 do
    writeln(i,'->',a[i]);
    readln;
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      Спасибо большое!
Самые новые вопросы