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

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

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


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

За что спасибо? Заранее не принимается..
Давай, ты хоть как как-то начни, а мы поможем.
Знаешь хоть, как оформлять программы? Что в начале, что в конце, что в середине.. Как массив описать? Вот, напиши, что сможешь.
Помощь гарантирую )). Тогда и спасибо скажешь..

А Вот вариант

второй задачи

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];
 for i:=1 to 20 do writeln(a[i]);
end.

Немогу резултат вывести

А если ReadLn в конце дописать?

все равно не получается((

То есть, не в самом конце, а сразу перед последним end.

ну я понел не получается(

Свет в доме есть?

(не хочешь таких вопросов - говори подробно, что сделал, что увидел, что вывелось на экран)

Выводит всё без ошибок, ввожу числа бесконечно и результата нету

> Выводит всё без ошибок
> ввожу числа бесконечно и результата нету

Я ничего не понял. Программа выводит всё без ошибок, но результата нету. Это как?

Так ктрл+ф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

Хмм спасибо понел что то

А можно блок схему не понимаю эту блок схем((