Предмет: Информатика,
автор: Sm0k4
найти количество не отрицательных нечетных элементов двумерного массива.
Ответы
Автор ответа:
0
На паскале
---
uses crt;
const n=3;
m=3;
var a: array [1..n,1..m] of integer;
x,y,k: integer;
begin
k:=0;
for x:=1 to n do begin
for y:=1 to m do begin
a[x,y]:=random(21)-10;
if a[x,y] mod 2=1 then inc(k);
write(a[x,y]:4);
end;
writeln;
end;
writeln('Количество неотрицательных нечетных элементов: ',k);
end.
---
uses crt;
const n=3;
m=3;
var a: array [1..n,1..m] of integer;
x,y,k: integer;
begin
k:=0;
for x:=1 to n do begin
for y:=1 to m do begin
a[x,y]:=random(21)-10;
if a[x,y] mod 2=1 then inc(k);
write(a[x,y]:4);
end;
writeln;
end;
writeln('Количество неотрицательных нечетных элементов: ',k);
end.
Автор ответа:
0
Бред.. Зачем тебе вещественные числа если ты их инициализируешь как целые? И кстати, понятие четность/нечетность определено лишь для целых чисел..
Автор ответа:
0
И еще.. Паскаль такая умница, что его mod работает не совсем как это происходит в математике (там остаток отрицательным быть не может), а в паскале может! Поэтому твою развилку можно сократить )
Похожие вопросы
Предмет: Қазақ тiлi,
автор: tleubajnazira006
Предмет: Русский язык,
автор: Koka145
Предмет: Другие предметы,
автор: Аноним
Предмет: Алгебра,
автор: iswag