Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера.

@Анатолий8 · Регистрация: 06.12.2013

Студворк — интернет-сервис помощи студентам

@FunnySHT · 07.12.2013, 14:16

Pascal

program forum;
uses crt;
const n=3;
type
    mass=array[1..10,1..10] of integer;
var
   sum,i,j:integer;
   a:mass;
Begin
     clrscr;
     randomize;
     sum:=0;
     For i:=1 to n do begin
     For j:=1 to n do
         begin
              a[i,j]:=random(10)-5;
              write(a[i,j]:5);
              If (i mod 2<>0) and (a[i,j] mod 2<>0) then inc(sum);
         end;
         writeln;
         end;
     writeln('sum=',sum:4);
     readkey;
End.

@Анатолий8 0 / 0 / 0 Регистрация: 06.12.2013 Сообщений: 12
		1
	Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера. 07.12.2013, 11:54. Показов 1364. Ответов 1 Метки нет (Все метки) Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера. 0

Опции темы

Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера.

Решение