35 .дан массив 3x4.найти кол-во четных элементов массива.вывести исходный массив на экран. надо поподробней написать и в turbo pascal(турбо паскаль 100%)

235

490

Посмотреть ответы 2

Ответы на вопрос:

Есенин6261

Информатика

4,6(16 оценок)

const

szm = 10;

szn = 10;

var

a: array[1..szm, 1..szn] of integer;

m, n, i, j, count: integer;

begin

m : = 3;

n : = 4;

{ввод массива}

for i : = 1 to m do

for j : = 1 to n do

a[i, j] : = (i - 1) * n + j; //если ввод вручную, тогда read(a[i,j])

{вывод массива}

for i : = 1 to m do

begin

for j : = 1 to n do

write(a[i, j]: 4);

writeln;

end;

{подсчет четных}

for i : = 1 to m do

for j : = 1 to n do

if a[i, j] mod 2 = 0 then count += 1;

write('количество четных: ', count)

end.

margaritavladim

Информатика

4,8(53 оценок)

грушу и четыре сливы можно выложить в ряд пятью способами. если начинать с яблок то будет пять способов. если начинать с груши со сливами и чередовать яблоками то тоже будет пять. итого десять.