Лабораторная работа: Обработка одномерных массивов и матриц

until i=30;

readln;

end.

Вывод результата

Задача 2

массив число программа цикл

Для заданной функции y = cos(0.5x/2)+cos(x) вычислить массив 11 ее значений в равноотстоящих точках интервала [2,4]. Вывести на экран таблицу значений функции. Обработать массив значений функции указанным образом. Результаты вывести на экран.Найти квадрат максимального из четных элементов массива и общее число нулевых элементов.

Текст программы

program lab2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var my:array [1..11] of real;

mx:array [1..11] of real;

max,y,x1,x2,x,h:real;

i,k:byte;

begin

x1:=2;

x2:=4;

x:=x1;

h:=(x2-x1)/10;

mx[1]:=x;

for i:=1 to 11 do

begin

y:=cos((0.5*x)/2)+cos(x);

my[i]:=y;

x:=x+h;

mx[i+1]:=x;