Посчитать элементы двухмерного массива

@GyR41k · Регистрация: 12.06.2018

Author24 — интернет-сервис помощи студентам

посчитать количество нулевых,положительных и отрицательных элементов двухмерного массива

@NikitaLatynin · 18.06.2018, 01:30

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Math;
 
const n=10;
var mus:array [1..n,1..n] of Integer;
s1,s2,s3,i,j:Integer;
 
begin
  Randomize;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
       mus[i,j]:=RandomRange(-10,10);
         if mus[i,j]<0 then
         inc(s1) else
          if mus[i,j]=0 then
          Inc(s2) else
           Inc(s3);
       write(mus[i,j]:3);
        end;
       Writeln;
     end;
   Writeln('<0= ',s1);
   Writeln('=0= ',s2);
   Writeln('>0= ',s3);
   Readln;
end.

Добавлено через 1 минуту
Если у тебя еще что-то есть, то можешь мне скинуть сразу

@D1973 · 18.06.2018, 06:38

Сообщение от NikitaLatynin

то можешь мне скинуть сразу

Комментарий модератора

NikitaLatynin, аккуратнее! п. 4.6 Правил форума еще никто не отменял!

Обсуждение вопросов - только в теме на форуме. Приглашения к обсуждению еще где-либо (в том числе и с помощью системы личных сообщений) запрещены, за исключением коммерческих разделов.

@GyR41k 0 / 0 / 0 Регистрация: 12.06.2018 Сообщений: 2
		1
	Delphi 6-7 Посчитать элементы двухмерного массива 17.06.2018, 21:30. Показов 860. Ответов 2 Метки нет (Все метки) посчитать количество нулевых,положительных и отрицательных элементов двухмерного массива 0

	18.06.2018, 06:38

Посчитать элементы двухмерного массива

Решение