Найти наименьший чётный элемент массива, если такого нет, то вывести первый элемент; подсчитать сумму нечётных элементов

program cal;//Подсчитать количество ненулевых чисел,стоящих на нечетных местах, и вычислить среднее арифметическое чисел,меньших заданного T.
const
  n = 1000;
type
  tyt = ^massiv;
  massiv = array [1..n] of integer;
var
  i, k, t, Sz, j: integer;
  s: real;
  a: tyt;
begin
  new(a);
  write('Введите размерность массива:');
  readln(Sz);
  write('Введите T:');
  readln(t);
  writeln('Массив:');
  for i := 1 to Sz - 1 do begin
    a^[i] := Random(20) - 10;
    write(a^[i]:4);
  end;
  writeln;
  writeln('Ненулевые числа, стоящие на нечётных местах:');
  k := 0; // счётчик ненулевых чисел на нечётных местах
  for i := 1 to Sz - 1 do
    if (i mod 2 = 1) and (a^[i] <> 0) then begin
      write(i, ':', a^[i], ' ');
      k := k + 1;
    end;
  writeln;  
  writeln('Количество ненулевых чисел, стоящих на нечётных местах:', k, '.');
  k := 0;
  s := 0;
  for i := 1 to Sz - 1 do 
    if a^[i] < t then begin
      k := k + 1; // колличество чисел меньших T
      s := s + a^[i]; // сумма чисел меньших T
    end;
  writeln('Среднее арифметическое чисел, меньших ', t, ': ', s / k);   
  Dispose(a);
end.

Program cal;
Type
PList = ^TList;
TList = record
family: string[20];
name: string[20];
surname: string[20];
street: string[100];
block: string[10];
flat: integer;
phone: string[50];
mark: integer;
next: PList; 
end;
streets = record 
street: string[100]; //название улицы
count: integer; //число учеников
end;
procedure addAb(var head: plist; family:string[20]; name:string[20]; surname:string[20]; street:string[100]; 
block:string[10]; flat:integer; phone: string[50]);
// структуры: фамилия, район, адрес, телефон, номер договора
// дата заключения договора, оплата установки, дата последнего платежа. Поиск - по району.
var
cur: plist;
begin
new(cur);
cur^.next := head; // Голова
cur^.family := family; 
cur^.name:= name; 
cur^.surname:=surname;
cur^.street:=street;
cur^.block:=block;
cur^.flat:=flat;
cur^.phone:=phone;
cur^.mark:=0;
head := cur;
end; // ШАПКА ГОТОВА
Var
i,j,n, flat, l,k: integer;
family, name, surname: string[20];
block: string[10];
street: string[100];
phone: string[50];
head,f,f1: PList; 
str: array of streets;
begin 
write('Сколько учеников в списке? ');
readln(n);
for i:=1 to n do
begin
write('Введите фамилию ученика: ');
readln(family);
write('Введите имя ученика: ');
readln(name);
write('Введите отчество ученика: ');
readln(surname);
write('Введите улицу: ');
readln(street);
write('Введите номер дома: ');
readln(block);
write('Введите номер квартиры: ');
readln(flat);
write('Введите телефон: ');
readln(phone);
addAb(head, family, name, surname, street, block, flat, phone);
end;
SetLength(str, n);
f:=head;
writeln;
for i:=1 to n do
begin
writeln(' ', f^.family, ' ', f^.name, ' ', f^.surname, ', ул. ', f^.street, ', д. ', f^.block, ', кв. ', f^.flat, ', тел. ', f^.phone);
f:=f^.next;
end;
// сставляем список улиц, на которых живёт больше одного студента в массив str
l:=0; 
f:=head; 
for i:=1 to n do begin
if (f^.mark=0) and (f^.phone<>'') then
begin
k := 1;
f1 := f^.next; 
for j:=i+1 to n do begin
if (f1^.mark = 0) and (f1^.phone <> '') and (f^.street = f1^.street) then
begin
k:=k+1;
f1^.mark := 1;
end;
f1 := f1^.next;
end;
str[l].street := f^.street;
str[l].count := k;
l := l+1;
end;
f := f^.next;
end;
writeln;
 
k := 0;
for i:=0 to l-1 do 
if str[i].count > 1 then begin
k := 1;
writeln('На улице ', str[i].street, ' живёт ', str[i].count, ' студентов:');
f:=head; 
for j:=1 to n do begin
if (f^.phone<>'') and (f^.street = str[i].street) then
writeln(f^.family, ' ', f^.name, ' ', f^.surname, ', ', f^.phone);
f := f^.next;
end;
writeln;
end;
 
if k = 0 then writeln('Не найдено учеников, живущих на одинаковой улице с одниковым именем.');
 
end.

Program cal;{Найдите наименьший четный элемент массива. 
Если такого нет, то выведите первый элемент. 
И посчитайте сумму нечетных элементов массива.}
consta
  n=10;
var
  i,j,summ: integer;
  arr: array [1..n] of integer;
begin
  summ:=0;
  writeln('Исходный массив:');
  for j:=1 to n do begin
    arr[j]:= random(100);
    write(' ' ,arr[j]);
  end;
  i := 1;
  for j:=2 to N do
    if arr[i] > arr[j] then i := j;
    writeln();
  write('Наименьший элеммент массива:', arr[i]);
  writeln();
  write('Сумма элеммент массива:', summ+);
  end.

Program cal;{Найдите наименьший четный элемент массива. 
Если такого нет, то выведите первый элемент. 
И посчитайте сумму нечетных элементов массива.}
const
  n=10;
var
  i,j,s: integer;
  a: array [1..n] of integer;
begin
  s:=0;
  writeln('Исходный массив:');
  for i:=1 to n do begin
    a[i]:= random(100);
    write(a[i],' ');
    if i mod 2=0 then s:=s+a[i]; 
  end;
  i := 1;
  for j:=2 to N do
    if a[i] > a[j] then i := j;
    writeln();
  write('Наименьший элеммент массива:', a[i]);
  writeln();
  write('Сумма элеммент массива:', s);
  end.

const n=10;
var arr: array [1..n] of integer;
    i,j,summ,min: integer;
begin
summ:=0;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  arr[i]:=random(100);
  write(arr[i]:3);
  if arr[i] mod 2<>0 then summ:=summ+arr[i];
 end;
writeln;
writeln('Сумма нечетных элементов=',summ);
j:=0;
for i:=1 to n do
if arr[i] mod 2=0 then
 begin
  if j=0 then
   begin
    min:=arr[i];
    j:=1;
   end
  else if arr[i]<min then min:=arr[i];
 end;
if j>0 then write('Наименьший четный элемент=',min)
else write('Четных элементов нет, первый элемент=',arr[1]);
end.

program cal;{Найдите наименьший четный элемент массива. 
Если такого нет, то выведите первый элемент. 
И посчитайте сумму нечетных элементов массива.}
var
  i, sum, min, n: integer;
  mass: array [1..1000] of integer;
 
begin
  writeln('Введите кол - во элементов в массиве');
  readln(n);
  writeln('Массив');
  for i := 1 to n do
  begin
    mass[i] := random(40) - 20;
    write(mass[i]:4);
  end;
  writeln;
  for i := 1 to n do
    if (mass[i] mod 2 = 0) and (mass[i] <> 0) then
      min := mass[i];
  for i := 1 to n do
    if (mass[i] mod 2 = 0) and (mass[i] < min ) then
      min := mass[i];
  for i := 1 to n do
    if (mass[i] mod 2 = 1) then
      sum := sum + mass[i];
  writeln('Наименьший чётный элемент массива: ', min); 
  writeln('Сумма нечётных элементов: ', sum); 
end.