Очень простой алгоритм:
Program Alexey;
{программа запрашивает у пользователя значения ежедневной температуры за 14 дней, и выводит максимальное и минимальное значения и в какие дни температруа достигала этих значений, а также вычисляет среднюю температуру за 2 недели}
uses crt;
const n=14;
var
i, daymax, daymin:integer;
t,max,min,sum:real;
begin
writeln('Введите температуру за каждый день');
write('День 1-й: T = ');
readln(t);
max:=t;
min:=t;
sum:=t;
for i:=2 to 14 do //организуем цикл
begin
write('День ',i,'-й: T = ');
readln(t);
if t>max then
begin
max:=t; // найдено новое максимальное значение
daymax:=i; // запоминаем соответствующий номер дня
end;
if t<min then
begin
min:=t; // найдено новое минимальное значение
daymin:=i; // запоминаем соответствующий номер дня
end;
sum:=sum+t; //суммируем все значения t
end;
writeln();
writeln('Максимальная температура была на ',daymax,'-й день: ',max,' градусов');
writeln('Минимальная температура была на ',daymin,'-й день: ',min,' градусов');
writeln('Средняя температура за 14 дней: ',sum/14,' градусов');
end.
Анна водопадами озадачился разводами лишаться
Program n1;
var a: array[1..12] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(15);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.