Хелпикс

Главная

Контакты

Случайная статья



Задача 3.

⇐ ПредыдущаяСтр 3 из 3


Задача 3.

Заполнить массив A с размером (1-10) значениями, вычисляемыми по формуле: А[i]:=sin(i*i2)

Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них.

 

Program Z3;

Var i:integer;

max: real;

A : array [1..10] of real;

begin

For i:=1 to 10 do

begin

    a[i]:=sin(i)*sqr(i);

    writeln(A[i]);

end;

max:=A[1];

For i:=2 to 10 do

if a[i]> max then max:=a[i];

writeln;

writeln ('max=', max);

readln; 

end.

 


⇐ Предыдущая123
  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.