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

[maxim1592]

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

[ZX Spectrum-128]

For i:=1 to n do
 If (a[i]=0) or (b[i]=0) then
  // есть
 Else
  // нет;

[maxim1592]

если можно полностью код...заранее спасибо

[ZX Spectrum-128]

Напишите код заполнения массивов, получите остальное.

[maxim1592]

в чем и дело, не знаю как...там 2-а массива заданы...а как их прописать...

[ZX Spectrum-128]

Ну вот например
http://www.programmersforum.ru/showthread.php?t=142749

[maxim1592]

спасибо большое

вот программа

   
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
 end;
end;
end.

только ошибку выдает, не ищет нулевой элемент, в чем проблема??? Или я не правильно сделал

[ZX Spectrum-128]

Ищет, но ничего не делает.
В условии
if (a[i]=0)or (b[j]=0) then
Begin
Writeln('есть!');
Break;
End;
нужно добавить.
И все-таки, массивы у вас одномерные.

[maxim1592]

max:=-2147483648;
for i:=1 to n do
begin
for i:=1 to m do
if (a[i]=0)or (b[j]=0) then (ошибку выдает на это строке(массив имеет другое количество размерностей)
end;
end;
end.

[ZX Spectrum-128]

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