Поиск отрицательных и положительных элементов в массиве - арифметическое переполнение

@Алексей930 · Регистрация: 23.04.2014

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

Pascal

var A:array[1..5,1..5] of integer;
i,j,s,m:integer;
begin
randomize;
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do begin
A[i,j]:=random(50)-25;
write(A[i,j],' ');
end;
end;
writeln;
for i:=1 to 5 do 
for j:=1 to 5 do begin
if (A[i,j]>=0) then inc(s)
else inc(m);
end;
writeln('Отрицательных ',m,' Положительных ',s);
end.

@Svager · 02.06.2014, 21:47

Pascal

uses crt;
var A:array[1..5,1..5] of integer;
    i,j,s,m:integer;
begin
randomize;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    a[i,j]:=random(50)-25;
    write(a[i,j],' ');
   end;
  writeln;
 end;
 for i:=1 to 5 do
  for j:=1 to 5 do begin
   if (A[i,j]>=0) then
    inc(s)
   else
    inc(m);
   end;
 writeln('Îòðèöàòåëüíûõ ',m,' Ïîëîæèòåëüíûõ ',s);
end.

@Алексей930 · 02.06.2014, 21:51 **[ТС]**

ну тоже самое и получилось...пишет - Арифметическое переполнение

@Svager · 02.06.2014, 21:55

Сообщение от Алексей930

ну тоже самое и получилось...пишет - Арифметическое переполнение

блин,Вы где его запускаете?

@Алексей930 · 02.06.2014, 22:12 **[ТС]**

Borland Turbo Pascal под Dos

Добавлено через 16 минут
Спасибо, всё таки заработало

@Алексей930 0 / 0 / 0 Регистрация: 23.04.2014 Сообщений: 11
	02.06.2014, 21:51 [ТС]	3
	ну тоже самое и получилось...пишет - Арифметическое переполнение 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	02.06.2014, 21:55	4
	Сообщение от Алексей930 ну тоже самое и получилось...пишет - Арифметическое переполнение блин,Вы где его запускаете? 0

@Алексей930 0 / 0 / 0 Регистрация: 23.04.2014 Сообщений: 11
	02.06.2014, 22:12 [ТС]	5
	Borland Turbo Pascal под Dos Добавлено через 16 минут Спасибо, всё таки заработало 0

Поиск отрицательных и положительных элементов в массиве - арифметическое переполнение

Решение