Определить, что больше: сумма или произведение элементов массива. Найти ошибку

@driveme · Регистрация: 22.05.2014

Где ошибка

Pascal

Program t7iz1;
uses crt;
var a:array[1..3,1..5] of integer;
i,j:byte; s1,s2:real;
begin
clrscr;
randomize;
for i:=1 to 3 do begin
for j:=1 to 5 do begin
a[i,j]:=random(41)-20;
write(a[i,j]:3);
s1:=s1+a[i,j];
s2:=s2*a[i,j];
if s1>s2 then writeln('сумма = ')
else writeln('впроизведение =');
readln;
end.

@Power torr · 30.05.2014, 14:29

Pascal

Program pr;
 uses crt;
var
 i,j,s: integer;
 p:longint;
 a:array[1..3,1..5] of integer;
 begin
 clrscr;
 s:=0; p:=1;
 writeln('Исходный массив');
for i:=1 to 3 do begin
for j:=1 to 5 do begin
  a[i,j]:=random(41)-20;
 write(a[i,j]:4);
 s:=s+ a[i,j];
 p:=p*a[i,j];
           end;
 writeln; end;
if s>p then writeln('Сумма ',s,' > прозведения ',p)
else writeln('Сумма ',s,' < прозведения ',p);
writeln('Конец');
end.

Новичок · 30.05.2014, 21:41

Сообщение от Power torr

s:=0; p:=1;

Переменные не были инициализированы. А потому, что в них было непонятно... Потому надо делать так как написано выше.

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	30.05.2014, 21:41	3
	Сообщение от Power torr s:=0; p:=1; Переменные не были инициализированы. А потому, что в них было непонятно... Потому надо делать так как написано выше. 0

Опции темы