Желательно в задании уточнять тип массива (целый, вещественный ) и его генерации(ввод с клавиатуры, генератор случайных чисел).
В данной программе массив получен с генератора случайных чисел
Program raznost;
Uses Crt;
const n=100; {максимальный размер массива}
var a:array[1..n] of integer;
i,m:integer;
k,s,rez:longint;
begin
clrscr;
write('Введите К: ');
readln(k);
write('Введите размер массива <100: ');
readln(m);
randomize;
write('Исходный массив:')
s:=0;
for i:=1 to m do
begin
a[i]:=random(50)+25;
write(i:3);
if (i mod 2)<>0 then s:=s+a[i];
end;
writeln;
rez:=k-s;
writeln('Разность между K и суммой всех элементов массива с нечетными индексами=',rez);
readkey;
end.
PROGRAM Privet;
VAR
x:real;
BEGIN
writeln('Который час?'); read(x);
if x > 24 then
writeln('Введенное число не является временем ' )
else
begin
if (x>=8) and (x<12) then writeln('Доброе утро!');
if (x>=12) and (x<17) then writeln('Добрый день!');
if(x>=17) and (x<23) then writeln('Добрый вечер!');
if(x>=23) or (x<8) then writeln('Доброй ночи!');
end;
end.
//вторая программа
var
x,x1,x2,y,y1,y2:real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
if ((x - x1) * (x - x2) < 0) and ((y - y1) * (y - y2) < 0) then
writeln('Точка принадлежит заданной области')
else
writeln('Точка не принадлежит заданной области');
end.
var
a:array[1..n] of integer;
i, k, l: integer;
begin
for i:=1 to n do
readln(a[i]);
k:=0; l:=0;
for i:=1 to n-1 do
if (a[i]<0) and (a[i+1]<0) then
begin
k:=i;
l:=i+1;
break;
end;
if k = 0 then
writeln('Нет')
else
writeln('Есть, номера элементов: ', k, ' ', l);
end.