Помогите решить 3 задачки, плиззз!!!

[Маськ@]

1) Даны натуральные p, q и последовательность целых чисел а1, ..., аn (p > q). В последовательности заменить на нуль все элементы, модуль которых при делении на p дает в остатке q.
2) В массиве из 25 вещественных чисел найти наименьший элемент и поменять его местами с первым элементом. Выполнить сортировку по убыванию между минимальным и первым элементом.
3) Дана матрица В. Для каждого столбца с четным номером вычислить и напечатать сумму квадратов элементов этого столб¬ца, а для каждого столбца с нечетным номером вычислить произ¬ведение элементов. Новый одномерный массив А, составленный по данным вычислениям, вывести в ячейки электронной таблицы.

[Stilet]

1) Даны натуральные p, q и последовательность целых чисел а1, ..., аn (p > q). В последовательности заменить на нуль все элементы, модуль которых при делении на p дает в остатке q.

Ну навскидку:

const n=10;
var a:array[1..n] of integer; i,p,q:integer;
begin
{Тут сама введеш массив и значения}
 for i:=1 to n do begin
  if abs(a[i]) mod p=q then a[i]:=0;
  write(a[i]:5);
 end;
end.

[alex_fcsm]

uses crt;
const n=25;
var a:array[1..n] of real;
    i,j,min:integer;
    temp:real;
    
begin
clrscr;
for i:=1 to n do
 begin
  a[i]:=random(30)+1;
  write(a[i]:3:0);
 end;
 writeln;
min:=1;
 for i:=2 to n do
  if a[i]<a[min] then min:=i;
temp:=a[min];
a[min]:=a[1];
a[1]:=temp;
writeln('Поменяли местами 1 и ',min);
 for i:=1 to n do
  write(a[i]:3:0);
writeln;
 for i:=1 to min-1 do
  for j:=min-1 downto i do
   if a[j]<a[j+1] then begin
    temp:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=temp;
   end;
writeln('Отсортировали 1 и ',min);
 for i:=1 to n do
  write(a[i]:3:0);
end.

[Dark_Spirit]

program 1;
uses crt;
var a:array[1..100] of integer;
n,p,q:integer;
begin
crlscr;
write('N<100 = ');
readln(n);
write('Q = ');
readln(q);
write('Введите Р больше Q = ');
readln(p);
if q>=p then
begin
writeln('Данные не отвечают условию задачи');
abort;
end;
writeln('Введите последовательность чисел');
for i:=1 to n do
begin
write('a[ ',i,' ]= ');
readln(a[i]);
end;
writeln('Введённая последовательность');
for i:=1 to n do
write(a[i]:3);
writeln;
for i:=1 to n do
if abs(a[i]) mod p=q then a[i]:=0;
writeln('Новая последовательность');
for i:=1 to n do
write(a[i]:3);
readln;
end.

[alex_fcsm]

Dark_Spirit проверьте свою программу сначала(ошибки есть).

P.S. Эту задачу уже решили. Не стоит дублировать решения

Закрыто. Название темы