Заданы два массива из 10 целых чисел каждый

[maxim1592]

и как это переписать под одномерный, чет я не понимаю

[maxim1592]

помогите код программы написать, завтра последний срок, очень-очень нужно...

[maxim1592]

Заданы два массива из 10 целых чисел каждый. Необходимо определить есть ли в данных массивах нулевые элементы.
срочно нужно до завтра. Что в этой программе не так?

const n=5;m=5;
var
a:array [1..n,1..m] of integer;
i,j,z,x:integer;
max:real;
begin
randomize;
write('ìàññèâ:');
writeln;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random (100)-50;
for i:=1 to n do
begin
 for j:=1 to m do
 write (a[i,j]:5);
 writeln;
end;
max:=-2147483648;
for i:=1 to n do
begin
 for i:=1 to m do
 if (a[i]=0)or (b[j]=0) then
 begin
 writeln ('åñòü');
 break;
 end;
end;
end.

[Mad_Cat]

Заданы два массива из 10 целых чисел

причем тут

const n=5;m=5;
a:array [1..n,1..m] of integer;

[ZX Spectrum-128]

Да тс этот код гоняет уже на пятой вроде задаче.
Нужно обьявить два одномерных массива:

Var
 A,b:array [1..n] of integer;

И везде убрать двойные циклы, оставив одинарные, так например:

// заполнение обоих массивов
For i:=1 to n do
 Begin
  A[i]:=random(n); b[i]:=random(n);
 End;

[maxim1592]

проверьте код программы, правильно сделано???

const n=5;m=5;
var
A, b: array [1..n]of integer;
i,j,z,x:integer;
max:real;
begin
randomize;
write('массив:');
writeln;
For i:=1 to n do
 Begin
  A[i]:=random(n); b[i]:=random(n);
 End;
for i:=1 to n do
begin
 for j:=1 to m do
 write (a[i]:5);
 writeln;
end;
max:=-2147483648;
for i:=1 to n do
begin
 for i:=1 to m do
 if (a[i]=0)or (b[j]=0) then
 begin
 writeln ('есть');
 break;
 end;
end;
end.

[Mad_Cat]

правильно сделано???

нет

Заданы два массива из 10 целых чисел

n=5

и зачем

max:=-2147483648;

[maxim1592]

а как должна выглядеть программа????в исправленном виде

[ZX Spectrum-128]

И двойные циклы уберите.

[maxim1592]

в каком именно месте убрать???