Дан массив. Найти количество отрицательных четных элементов, кратных 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.

Что тут неправильно ?

Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.