Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 15.01.2011
Сообщений: 48
1

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.

05.04.2011, 20:33. Показов 1208. Ответов 5
Метки нет (Все метки)

Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2011, 20:33
Ответы с готовыми решениями:

Элементы массива Х[i] стоящие на четных местах переписать в массив Y[i] а стоящие на нечетных местах в Z[i]
Элементы массива Х стоящие на четных местах переписать в массив Y а стоящие на нечетных местах в Z

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

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Найти сумму и количество четных элементов массива Р(13), стоящих на нечетных местах

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Задан одномерный массив из 17 целых элементов, заполненый случайным образом в диапазоне от 7 до...

5
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
05.04.2011, 21:58 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
31
32
33
34
35
36
37
var
   a: array[1..100,1..100] of integer;
   i,j,n,k,sr,d: integer;
   f: boolean;
begin
   randomize;
   for i:=1 to n do
      begin
         for j:=1 to n do
            begin
               a[i,j]:=round(random(80)+10);
               write(a[i,j],' ');
            end;
         writeln;
      end;
   writeln;
   k:=0;
   for i:=1 to n do
      begin
         sr:=0;
         d:=0;
         f:=true;
         for j:=1 to n do
            if odd(j)=true then 
               begin
                  inc(d);
                  sr:=sr+a[i,j];
               end;
         sr:=sr div d;
         for j:=1 to n do
            if odd(j)=false then
               if (a[i,j]>sr) and (f=true) then f:=true else f:=false;
         if f=true then inc(k);
      end;
   writeln('количество строк: ',k);
   readln;
end.
0
1 / 1 / 0
Регистрация: 15.01.2011
Сообщений: 48
07.04.2011, 17:13  [ТС] 3
что-то не работает. массив даже не выводит
0
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
07.04.2011, 17:40 4
да что за..><
В сааамом начале: readln(n,m)
0
1 / 1 / 0
Регистрация: 15.01.2011
Сообщений: 48
07.04.2011, 19:20  [ТС] 5
блин
0
3 / 3 / 1
Регистрация: 05.11.2010
Сообщений: 36
13.04.2011, 14:58 6
она не работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.04.2011, 14:58

Написать программу, находящую сумму элементов, стоящих на четных местах и максимум среди элементов, стоящих на нечетных местах.
Всем привет! Помогите, пожалуйста, решить две задачи по программированию. Задача 1: Задан массив...

Найти и вывести все номера четных элементов массива, стоящих на нечетных местах
Найти и вывести все номера четных элементов массива, стоящих на нечетных местах.

Сначала выводятся числа, стоящие на нечетных местах, а затем — стоящие на четных местах
Требования к следующим программам: Код программы должен содержать процедуры и функции. Допускается...

Найти min из элементов, стоящих на нечётных местах, домножить на него все элементы, стоящие перед найденным
В массиве Z1, Z2,…, Z30 найти минимальный из элементов, стоящих на нечётных местах. Домножить на...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru