двумерные массивы Опции

[pre-dawn-haze]

Составить схему алгоритма и программу определения суммы всех четных чисел массива К={kj}, j=1,m, m - число элементов в массиве К (m≤60). Вывести на экран найденное значение суммы, а также все четные числа и их адреса.


не пойму как задать массив
как ограничить
m - число всех элементов?

[Lapp]

не пойму как задать массив
как ограничить
m - число всех элементов?

Это неравенство, m<=60, просто говорит о том, какой величины массив тебе нужно заводить. Гарантируется, что входные данные (если массив будет вводиться с клавы или из файла) никогда не превысят 60 чисел.

const
  m= 60;

var
  a: array[1..60] of integer;
  i,s: integer;

begin
  write('enter total number of elements: ');
  readln(n);
  for i:=1 to n do a[i]:= Random(100);
  s:= 0;
  for i:=1 to n do
    if not Odd(a[i]) then begin
      s:= s+a[i];
      writeln('a = ',a[i],'  at  i = ',i);
    end;
  end;
  writeln('sum of even elements is ',s);
  readln
end.

Тут я использовал заполнение массива случайными числами.

[pre-dawn-haze]

ага, вот оно что=) тогда просто
спасибо
-
а можно еще вопрос?
В прямоугольной матрице размером К*М, имеющей имя МАTR содержаться целые числа. К- число строк, М- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждой строке. Определить строку с максимальным значением этой суммы и вывести ее номер на экран.

я вывожу максимальную сумму, но не могу вывести строку, в которой она находится, как это сделать?

-

program z_122;
var
   a:array[1..100, 1..100] of integer;
   i, j, st: integer;
   m, s, n: integer;
begin
writeln ('Введите количество столбцов' );
readln (m);
writeln ('Введите количество строк');
readln (n);
begin
for i:=1 to n do
    for j:=1 to m do
    begin
write ('a [ ', i, '' , j, ' ] = ');
read (a[i, j]);
end;
end;
writeln ('Исходная матрица');
for i:=1 to n do
begin
     for j:=1 to m do
         write (a[i,j]:4);
         writeln;
end;

for i:=1 to n do
begin
s:=0;
for j:=1 to m do
if a[i,j]>0 then
s:=s+a[i,j];
  Writeln('Сумма элементов в ', i,' строке равна ', S);
end;
st:=s;
for i:=2 to n do
    if s>st then
    st:=s;
    writeln('Максимальная сумма равна : ', st );
end.

Сообщение отредактировано: pre-dawn-haze - 17.11.2011 23:53