Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 15.09.2019
Сообщений: 70
1

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

23.10.2019, 08:53. Просмотров 198. Ответов 1
Метки нет (Все метки)


Вычислите количество четных элементов в области ниже обеих диагоналей строки k
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2019, 08:53
Ответы с готовыми решениями:

Выкинуть все четные элементы. Отсортировать оставшиеся элементы по возрастанию
В одномерном массиве нужно выкинуть все четные элементы,а оставшиеся элементы отсортировать по...

Записать в третий файл нулевые элементы первого файла и четные элементы в второго
Сформировать два файла из некоторых чисел. Записать в третий файл нулевые элементы первого файла и...

Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце
Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце.(Метод...

Матрица: уменьшить нечетные элементы на 1, увеличить четные элементы на 2
Написать программу, уменьшающие в матрице целых чисел n=<5,M=<7,нечетные элементы на 1,...

1
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,741
23.10.2019, 10:01 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2019, 10:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Четные элементы в столбце
задается квадратная матрица NxN. Программа должна осуществлять ввод и вывод исходной матрицы и...

Упорядочить четные элементы массива
Упорядочить четные элементы массива по невозрастанию, оставив остальные на своих местах.

Отсортировать чётные элементы массива
В одномерном массиве: отсортировать чётные элементы массива, нечётные остаются на своих...

Удалить четные элементы из файла
Дан файл целых чисел удалить из него все элементы с четными номерами var,Ft:file of integer; i:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.