Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Iskra
0 / 0 / 0
Регистрация: 05.11.2015
Сообщений: 11
1

Двумерный массив. Найти среднее арифметическое элементов ,имеющих нечетное значение. Найти минимум 2 строки

01.06.2014, 14:29. Просмотров 685. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста!

Выполнить двумерный массив В(9,9) Cлучайными целыми числами в интервале[-20,20].Все задачи написать в одной программе .
1.Вывести массив на экран.
2.Найти минимальный элемент второй строки.
3.Найти среднее арифметическое элементов ,имеющих нечетное значение.
4.Создайте новый одномерный массив из отрицательных элементов массива.
5.Найдите максимальный элемент в массиве.(начальном)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2014, 14:29
Ответы с готовыми решениями:

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

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

Подсчитать и вывести среднее арифметическое элементов массива, имеющих нечетное значение
Добрый день! Помогите решить данные задачки. 1) Дан целочисленный массив из...

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

Двумерный массив. Найти среднее арифметическое элементов
2)дан двумерный массив целых чисел размерностью 5х7. Найти и вывести на экран...

1
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
01.06.2014, 20:28 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
38
39
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax*nmax] of integer;
    i,j,min,max,n,s,k:integer;
begin
 repeat
  write('ГђГ*çìåð Г¬Г*òðèöè n=');
  readln(n);
 until n in [1..nmax];
 max:=-100;min:=100;k:=1;
 writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў :') ;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=-20+random(41);
      write(a[i,j]:4);
       if a[2,j]<min then
        min:=a[2,j];
       if a[i,j]>max then
        max:=a[i,j];
       if a[i,j] mod 2<>0 then
        s:=s+a[i,j];
       if a[i,j]<0 then
        begin
         b[k]:=a[i,j];
         inc(k);
        end;
     end;
    writeln;
   end;
  writeln('ГЊГЁГ*ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ âòîðîé ñòðîêè = ',min);
   writeln('ÑðåäГ*ГҐГҐ Г*ðèôìåòè÷åñêîå ýëåìåГ*òîâ ,èìåþùèõ Г*ГҐГ·ГҐГІГ*îå Г§Г*Г*Г·ГҐГ*ГЁГҐ = ',s/2:0:2);
  writeln('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ = ',max);
   writeln('ГЊГ*Г±Г±ГЁГў îòðèöГ*òåëüГ*ûõ ýëåìåГ*òîâ :');
  for i:=1 to k-1 do
   write(b[i]:4);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2014, 20:28

Найти сумму элементов, имеющих нечетное значение
Найти сумму элементов, имеющих нечетное значение;

Найти сумму элементов массива, имеющих нечетное значение
Дан массив целых чисел заполненный случайным образом, состоящий из 20...

Массив: найти среднее арифметическое значение положительных элементов, имеющих нечетные номера
В Массиве У(n) найти среднее арифметическое значение положительных элементов,...


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

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

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