М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

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

👇
Ответ:
Vanya2155
Vanya2155
20.09.2021
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.


Программисты, ! pascal abc или pascalabc. net. дан массив размером n×n, элементы которого целые числ
4,8(73 оценок)
Ответ:
геля217
геля217
20.09.2021

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.

4,6(51 оценок)
Открыть все ответы
Ответ:
allegron4567
allegron4567
20.09.2021

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

4,7(34 оценок)
Ответ:
SoktoevTimur
SoktoevTimur
20.09.2021

Объяснение:

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("Разносторонний треугольник")

4,6(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ