Дан двумерный массив, заполнить его случайными числами и найти сумму элементов, имеющих нечетное значение

@RC83 · Регистрация: 14.04.2014

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

Подскажите, сам никак не могу врубиться ((

Дан двумерный массив из целых чисел,состоящий из 20 элементов,заполнить его случайными числами и найти сумму элементов,имеющих нечетное значение.Вывести те элементы,значение которых > A. Определить,есть ли в данном массиве элементы,равные K.
Как-то так.

@Svager · 14.04.2014, 18:51

Сообщение от RC83

Как-то так.

Добавлено через 9 минут
Как-то так

Pascal

uses crt;
const m=4;
      n=5;
var a:array[1..m,1..n] of integer;
    i,j,s,b,k:integer;
begin
 clrscr;
  for i:=1 to m do
   for j:=1 to n do
    a[i,j]:=-10+random(77);
    
  for i:=1 to m do
   begin
    for j:=1 to n do
     write(a[i,j]:4);
      writeln;
   end;
  writeln;
   for i:=1 to m do
    for j:=1 to n do
     if a[i,j] mod 2=0 then
      s:=s+a[i,j];
     writeln('Ñóììà ÷åòíûõ ýëåìåíòîâ = ',s);
   write('A=');
    readln(b);
   for i:=1 to m do
    for j:=1 to n do
     if a[i,j]>b then
      write(a[i,j]:4);
    writeln;
   write('K=');
    readln(k);
   for i:=1 to m do
    for j:=1 to n do
     if a[i,j]=k then
      write(i,' = ',a[i,j],' = K');
 readkey;
end.

@RC83 0 / 0 / 0 Регистрация: 14.04.2014 Сообщений: 2
		1
	Дан двумерный массив, заполнить его случайными числами и найти сумму элементов, имеющих нечетное значение 14.04.2014, 18:23. Показов 2223. Ответов 1 Метки нет (Все метки) Подскажите, сам никак не могу врубиться (( Дан двумерный массив из целых чисел,состоящий из 20 элементов,заполнить его случайными числами и найти сумму элементов,имеющих нечетное значение.Вывести те элементы,значение которых > A. Определить,есть ли в данном массиве элементы,равные K. Как-то так. 0

	14.04.2014, 18:51

Дан двумерный массив, заполнить его случайными числами и найти сумму элементов, имеющих нечетное значение

Решение