Реферат: Одномерные массивы. Организация ввода и вывода данных

a[j]:=b;

End;

writeln('vvedite 2 chisla c<f');

Readln(c,f);

Writeln('elementi vhodyachie v otrezok [c,f]');

for i:=1 to 20 do

if (a[i]>=c) and (a[i]<=f) then write(a[i]:3);

WriteLn;

For i:=1 to 20 do

Write(' ',a[i]);

Readln;

End.

Задание 13.

Дан одномерный массив из 10 целых чисел. Среди элементов массива найти корни квадратного уравнения x² +5-6=0. Если таковые отсутствуют, то вывести сообщение об этом.

ProgramP8;

var m:array [1..5] of integer;

p, i:integer;

a,b,c,x1,x2:real;

D:real;

Begin

a:=1;

b:=5;

c:=-6;

D:=b*b-4*a*c;

If D>0 then

begin

x1:=(-b+sqrt(D))/(2*a);

x2:=(-b-sqrt(D))/(2*a);

Writeln('pervii koren yravneniya=',x1:1:1);