Предмет: Информатика,
автор: Trombozit
Дан массив. Найти количество отрицательных четных элементов, кратных 7.
var a:array[1..10,1..10] of integer;i,m,n,j: integer; s,k:real;
begin
Write ('m=');readln(m);
write('n=');readln(n);
for i:=1 to m do
for j:=1 to n do
begin write('a[',i,',',j,']=');readln(a[i,j]); end;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:4);
writeln;end;
For i:=1 To m Do
Begin
For j:=1 To n Do Begin
k:=0; If ((a[i,j]<0)and ((a[i,j]mod 2) = 0)and (a[i,j] mod 7 = 0))
Then k:=k+1;End;
writeln('k=',k); end;end.
Что тут неправильно ?
Ответы
Автор ответа:
0
Вроде всё нормально, кроме того, что в цикле, где выводится матрица, надо поменять местами m и n, и строки k := 0 и вывод k надо вынести из цикла.
Автор ответа:
0
аммм... да нет, вроде
Автор ответа:
0
ух тыж ёмае, заработало ! Спасибо :D
Автор ответа:
0
Слушай, а может вы мне и с остальными задачами поможете ?
Похожие вопросы
Предмет: Другие предметы,
автор: alina246127
Предмет: Қазақ тiлi,
автор: 051250veramailcom
Предмет: Литература,
автор: karbonx2
Предмет: Химия,
автор: Аноним