Четные элементы

@Фински · Регистрация: 15.09.2019

Вычислите количество четных элементов в области ниже обеих диагоналей строки k

@Puporev · 23.10.2019, 10:01

Pascal

var a:array[1..20,1..20] of integer;
    n,i,j,k,s:integer;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
 write('Введите номер строки k=');
 readln(k);
 if(odd(n)and(k<=n div 2+1))or(not odd(n)and(k<=n div 2))then
  begin
   writeln('Строка находится не ниже пересечения диагоналей');
   exit;
  end;
s:=0;
for i:=n-k+2 to k-1 do
if a[k,i]mod 2=0 then inc(s);
writeln('Количество четных элементов в строке ',k,' внутри диагоналей=',s)
end.

@Фински 0 / 0 / 0 Регистрация: 15.09.2019 Сообщений: 70
		1
	Четные элементы 23.10.2019, 08:53. Просмотров 198. Ответов 1 Метки нет (Все метки) Вычислите количество четных элементов в области ниже обеих диагоналей строки k 0

Опции темы