Const n = 5; var i, j, total_p, total_o: integer; a: array[1..n, 1..n] of integer; begin for i : = 1 to n do begin for j : = 1 to n do begin a[i, j] : = random(20) - 10; write(a[i, j]: 3); if(a[i, j] < 0) then inc(total_o) else inc(total_p); end; writeln; end; writeln('кол-во положительных эл-тов: ', total_p); writeln('кол-во отрицательных эл-тов: ', total_o); end.
lyubavalev8
15.11.2020
Linuxtux (такс) — официальный талисман linux. созданный в 1996 ларри юингом, это толстый пингвин, выглядящий сытым и довольным. идею использовать пингвина в качестве талисмана linux выдвинул создатель этого ядра линус торвальдс. tux был нарисован для соревнования логотипов linux. победивший логотип при свободного графического редактора gimp нарисовал ларри юинг.сегодня tux — общепризнанный символ сообществ сторонников linux и спо. он намного более известен, чем, например, логотип проекта gnu. внешний вид пингвина разнится от картинки к картинке: например, в версии для пакета повышения безопасности pax, пингвин носит шлем, щит, а также держит в лапе лабрис — и имеет демонический вид с красными глазами. 
picassovrn
15.11.2020
Edsac (. electronic delay storage automatic calculator ) — электронная вычислительная машина , созданная в 1949 году в кембриджском университете (великобритания ) группой разработчиков во главе с морисом уилксом .мэсм (малая электронная счётная машина ) — первая в и континентальной европе электронно-вычислительная машина. разрабатывалась лабораторией с. а. лебедевабэсм (сокращение от большая (или быстродействующая) электронно-счётная машина ) — серия советских электронных вычислительных машин общего назначения, предназначенных для решения широкого круга . разработка института точной механики и вычислительной техники ан
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Ввести массивa(n, m определить количество положительных и отрицательных элементов.