Массивы. Помогите решить Опции

[Credo]

1.Составить алгоритм и программу для решение задачи с использованием двумернызх масивов. При программирований заданий предпологается использование различных операторов цикла для оброботки масивов.

Дан массив А[5,5]. Построить массив B(5) по следующему правилу: B(I) присвоить 1 если в I-той строкемассива есть хотя бы один отрицательный элемент, в про8тивном случае B(I) присвоить 0.

2.Если у массива А(20) есть элемент равный квадрату последнего элемента то все элементы, следующие за ним, возвести в квадрат, иначе вывести массив без изменений.


Заране спасибо))

[Credo]

Так ктрл+ф9 ввожу числа, и потом хочу получить результат альт+ф5, результата нету и ошибок нет

[Lapp]

Так ктрл+ф9 ввожу числа, и потом хочу получить результат альт+ф5, результата нету и ошибок нет

А как ты вообще собираешься отличить введенные числа от результата, если там нет выполнения условия ни на одном числе?
Сделай так:

var
 a:array [1..20] of integer;
 i,n:integer;
begin
 for i:=1 to 20 do readln(a[i]);
 n:=0;
 for i:= 1 to 19 do
   if (a[i]=a[20]*a[20]) then n:=i;
 if (n<>0)
   then
        for i:=n to 20 do a[i]:=a[i]*a[i];
  WriteLn('Rezultat:');
  for i:=1 to 20 do write(a[i]:5);
  WriteLn
end.

Отличия в ТРЕХ строках внизу, перед end