Программисты, ! pascal abc или pascalabc. net. дан массив размером n×n, элементы которого целые числа. для каждого столбца найти первый положительный элемент и записать данные в новый массив. при решении использовать двумерный массив.

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Количество строк/столбцов в массиве:');

 Writeln('*** Исходный массив ***');

 var a := MatrRandom(n, n, -99, 99);

 a.Println(4); Writeln(4 * a.ColCount * '-');

 var b := a.Cols.Select(row -> row.Where(t -> t > 0).First).ToArray;

 b.Println

end.

label next;

var a: array of array of integer;

b: array of integer;

i,j,n: integer;

begin

write('Введите  N: ');

readln(n);

setlength(a,n);

setlength(b,n);

for i:=0 to n-1 do setlength(a[i],n);

for i:=0 to n-1 do

for j:=0 to n-1 do a[i,j]:=60-random(100);

writeln('Полученный массив: ');

for i:=0 to n-1 do begin writeln;

for j:=0 to n-1 do write(a[i,j],' ');

end;

i:=0;

j:=0;

while (i<n) do begin

while (j<n) do begin

if (a[i,j]>0) then begin

b[i]:=a[i,j];

j:=0;

goto next;

end else inc(j);

end;

next: inc(i);

end;

writeln;

writeln('Отобранные данные: ');

for i:=0 to n-1 do write(b[i],' ');

readln;

end.

Принципиальной разницы в работе с ноутбуком и с компьютером нет. Зачастую операционные системы на них устанавливаются идентичные, клавиатуры стремятся к единообразию, так что внимание обращает на себя в первую очередь мобильность. Ноутбуки рассчитаны на работу вне определенного рабочего пространства, они обладают малым весом и не требуют подключения периферийных устройств. Большинство ноутбуков адаптированы под работу в “полевых” условиях, в поездках. Стационарные ПК перемещать тоже можно, однако это сопряжено со сложностями. К тому же системные блоки и периферийные устройства обладают немалым весом и не защищены от повреждений при транспортировке.Если система будет использоваться в качестве домашней, то у ПК имеются свои преимущества. Несмотря на большое количество проводов и определенного рода неудобства, связанные с выделением пространства для системы, ПК удобнее для реализации мультимедийных возможностей: монитор можно перемещать, изменять углы обзора. Подключаемая клавиатура эргономичнее, а необходимость работы за столом благоприятно сказывается на опорно-двигательном аппарате.Что касается производительности, то современные ноутбуки практически догнали ПК в этом отношении. Офисные системы, не рассчитанные на высокие требования приложений, могут быть как в том, так и в другом виде. Игровые системы предъявляют высокие требования к аппаратной части, что одинаково сказывается на стоимости и ПК, и ноутбука. В нише хай-энд стационарные ПК все же берут свое: производительность топовых систем в мобильном корпусе не реализуется — система охлаждения ноутбуков высочайшие мощности не тянет.Все ноутбуки работать от автономного источника питания (аккумулятора) в течение нескольких часов. Стационарному компьютеру по умолчанию требуется подключение к электросети, благо у нас они распространены повсеместно. ПК гораздо более энергоемкое устройство, чем ноутбук.Еще один важный критерий выбор между стационарным компьютером и ноутбуком — возможность самостоятельного ремонта или апгрейда. Замена комплектующих в ПК чаще всего проста и не требует специальных навыков, любые аппаратные составляющие доступны и стоят относительно недорого. Ноутбук предполагает участие в ремонте специалиста, и, хоть принципиально комплектующие ничем не отличаются, самостоятельно заменить их не удастся — это плата за компактность.

Объяснение:

a = int(input())

b = int(input())

c = int(input())

p = (a+b+c)/2

if a <= 0 or b <= 0 or c <= 0:

   print("Неверные стороны треугольника")

elif (a+b) < c or (a+c) <  b or (c+b) < a:

   print("Неверные стороны треугольника")

else:

   s = (p*(p-a)*(p-b)(p-c))**0.5 # считаем площадь по трем сторонам

   print("Площадь: ", s)

   if a == b == c:

       print("Равносторонний треугольник")

   elif (a == b) or (a == c) or (b == c):

       print("Равнобедренный треугольник")

   else:

       print("Разносторонний треугольник")