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

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

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

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

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

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

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

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

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

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

1
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
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