Paul_white
1

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

30.01.2012, 08:53. Показов 1451. Ответов 6
Метки нет (Все метки)

№1. Дан массив Ai (i=1,2,3...10). Найти среднее значение элементов стоящих на нечетных местах.
№2. Дан массив T (7,7). Вычислить произведение элементов, расположенных на главной и побочной диагоналях. Вывести массив и вычислить значение.
№3. Задан массив K (3,4). Организовать одномерный массив P содержащий чётные элементы массива A. Вывести исходный массив и полученный.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2012, 08:53
Ответы с готовыми решениями:

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах
Помогите , пожалуйста, срочно надо написать программу( программа управляется с помощью меню В...

Найти максимальный из элементов массива A[1 . N], стоящих на нечетных местах
Найти максимальный из элементов массива A, стоящих на нечетных местах.

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

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

6
57 / 57 / 8
Регистрация: 18.12.2010
Сообщений: 387
30.01.2012, 10:32 2
Цитата Сообщение от Paul_white Посмотреть сообщение
№1. Дан массив Ai (i=1,2,3...10). Найти среднее значение элементов стоящих на нечетных местах.
Pascal
1
2
3
4
5
6
7
8
....
k:=0; s:=0;
For i:=1 to 10 do 
  if i mod 2<>0 then begin
    s:=s+a[i]; k:=k+1;
  end;
writeln("Среднеt_ариф.=",s/k);
....
Осталось описать масив и переменние.
1
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
30.01.2012, 17:04 3
Цитата Сообщение от Paul_white Посмотреть сообщение
На грани отчисления....
Если такой примитив не научился писать, то вполне логично...
1
792 / 394 / 260
Регистрация: 09.12.2011
Сообщений: 785
Записей в блоге: 29
30.01.2012, 17:05 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

№1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program Mas;
Uses crt;
Var A:array[1..10] of real; i,kol:integer; sr,sum:real;
Begin
ClrScr;
Writeln('Input elements:');
For i:=1 to 10 do
 Begin
  Readln(A[i]);{ввод элементов массива}
  If odd(i)=true then  {проверка номера на чётность}
   Begin
    sum:=sum+A[i]; kol:=kol+1;
   End;
 End;
sr:=sum/kol;  
Writeln('sr arif:',sr:2:2);
Readln;
End.
1
Paul_white
30.01.2012, 17:07 5
Просто учитель не в состоянии доходчиво объяснить...
magirus
30.01.2012, 17:07
  #6
 Комментарий модератора 
Paul_white, не дублируйте темы.
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.01.2012, 17:18 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Paul_white Посмотреть сообщение
№3. Задан массив K (3,4). Организовать одномерный массив P содержащий чётные элементы массива A. Вывести исходный массив и полученный.
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
uses crt;
var a: array [1..3,1..4] of integer;
    p: array [1..12] of integer;
    i,j,e: byte;
begin
writeln('vvedite elementy massiva A:');
for i:=1 to 3 do
    for j:=1 to 4 do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
e:=0;
writeln('Dan massiv A');
for i:=1 to 3 do
    begin
    for j:=1 to 4 do
        begin
        write(a[i,j]:4);
        if a[i,j] mod 2=0 then
           begin
           inc(e);
           p[e]:=a[i,j];
           end;
        end;
    writeln;
    end;
writeln('Massiv P');
for i:=1 to e do
    write(p[i]:4);
readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2012, 17:18
Помогаю со студенческими работами здесь

Дан массив из 15 элементов A(15). Найти количество элементов массива меньших 0, и стоящих на нечетных местах
Дан массив из 15 элементов A(15). Найти количество элементов массива меньших 0, и стоящих на...

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

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

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

Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах
дан вектор, имеющий n (1≤n≥100) целых элементов. напиши программу, которая находит среднее...

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на нечётных местах ...


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

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

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