Даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны.

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

 

сори за ошибки давно на паскале не писал 

Из текста непонятно, нужен ли промежуточный вывод, поэтому он присутствует после каждого этапа, чтобы убедиться в правильности работы программы. программа написана и отлажена в среде pascalabc.net. const   n = 4; var   a: array[1..n,1..n] of integer;   i,j,s,amin,jmin,amax,imax: integer; begin   { инициализация массива }   writeln('исходный массив');   for i: =1 to n do   begin       for j: =1 to n do       begin           a[i,j]: =random(51)-25; { случайные числа на [-25; 25] }           write(a[i,j]: 4)       end;       writeln   end;   { сумма элементов побочной диагонали }   s: =0;   for i: =1 to n do s: =s+a[n-i+1,i];   writeln('сумма элементов побочной диагонали: ',s);   writeln('меняем местами первый и последний столбцы');   for i: =1 to n do   begin s: =a[i,1]; a[i,1]: =a[i,n]; a[i,n]: =s end;   { вывод }   for i: =1 to n do   begin       for j: =1 to n do write(a[i,j]: 4);       writeln   end;   { меняем местами минимальный элемент первой строки   и максимальный элемент последнего столбца }   amin: =a[1,1]; jmin: =1;   for j: =2 to n do       if amin> a[1,j] then begin amin: =a[1,j]; jmin: =j end;   amax: =a[1,n]; imax: =1;   for i: =2 to n do       if amax< a[i,n] then begin amax: =a[i,n]; imax: =i end;     a[1,jmin]: =amax; a[imax,n]: =amin;   writeln('массив после обмена местами найденных элементов');   for i: =1 to n do   begin       for j: =1 to n do write(a[i,j]: 4);       writeln   end end. тестовое решение: исходный массив   -14 -25 -14 -11     8  -5    5    0     5  20  -7  -9   -23    4  -3  18 сумма элементов побочной диагонали: -9 меняем местами первый и последний столбцы   -11 -25 -14 -14     0  -5    5    8   -9  20  -7    5   18    4  -3 -23 массив после обмена местами найденных элементов   -11    8 -14 -14     0  -5    5 -25   -9  20  -7    5   18    4  -3 -23

Procedure del_n(var f: fail); var n,i: integer;       c: char;       x: stud; begin write('удалить запись № '); readln(n); reset(f); if (filesize(f)< n)or(n< 0) then   begin   writeln('в файле нет такой записи');   close(f);   write('press ');   readln;   exit;   end; if n=filesize(f)then   begin   seek(f,filesize(f)-1);   truncate(f);   close(f);   write('press ');   readln;   exit;   end; seek(f,n-1); for i: =n-1 to filesize(f)-2 do   begin   seek(f,i+1);   read(f,x);   seek(f,i);   write(f,x);   end; seek(f,filesize(f)-1); truncate(f); close(f); write('press '); readln end;