Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
alenushka1

Разработать программу для определения требуемых величин в элементах двумерного массива

03.07.2013, 10:41. Показов 1253. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят, помогите пожалуйста =)
Нужно разработать программы для определения требуемых величин в элементах двумерного массива:
1)Суммы всех чисел
2)Минимальное четное число
3)Количество отрицательных не четных чисел
4)Сумма отрицательных не четных чисел
Буду очень благодарна))
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.07.2013, 10:41
Ответы с готовыми решениями:

Разработать программу для определения максимального массива
Разработать программу для определения максимального массива. Только чтоб попроще как-то выглядела) Заранее спасибо!!!

Разработать программу для определения индекса минимального элемента массива
Разработать программу для определения индекса минимального элемента массива.

Разработать программу для обработки двумерного числового массива( +3 задания )
Всех приветствую! В общем, выручайте, друзья :) Заразился каким-то вирусом, пропустил тему.. Теперь вообще даже мыслей в голову не...

2
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
03.07.2013, 11:06
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от alenushka1 Посмотреть сообщение
1)Суммы всех чисел
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var A:array[1..20,1..20] of integer;
    i,j,n,m,s:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
     For j:=1 to m do
      s:=s+A[i,j];
    writeln('Сумма всех чисел = ',s);
    readln;
End.
Вот тебе основа,отсюда и пляши
1
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
03.07.2013, 16:32
alenushka1, за то что первая тема - и с нормальным названием, вот тебе программа с комментариями )
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses crt;
const nmax=15;     //максимальное количество строк / столбцов
var a: array [1..nmax,1..nmax] of integer;
    i,j,n,m: byte; //счетчики и количество строк и столбцов
    imin_chetnoe,jmin_chetnoe,k_otr_nechethyh: byte;
    sum_vseh,sum_otr_nechetnyh: integer;
    
begin
//в цикле с постусловием запрашиваем количество строк и столбцов
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
// если матрица вводится вручную, то раскомментировать эти строки, а randomize;  и a[i,j]:=random(199)-99; ниже удалить
{for i:=1 to n do
     for j:=1 to m do
         begin
         write('a[',i,',',j,']=');
         readln(a[i,j]);
         end;}
randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        //заполнение случайными числами
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);             //вывод
        inc(sum_vseh,a[i,j]);        //увеличиваем сумму ввсех на текущее значение
        if not (odd(a[i,j])) then    //если число четно
           begin
           if imin_chetnoe=0 then    //если индекс нулевой - это первое найденное число
              begin
              imin_chetnoe:=i;       //запоминаем его индексы
              jmin_chetnoe:=j;
              end else
                  if a[i,j]<a[imin_chetnoe,jmin_chetnoe] then   //иначе - если не первое, и если оно меньше ранее найденного
                     begin
                     imin_chetnoe:=i;         //тоже запоминаем его индексы
                     jmin_chetnoe:=j;
                     end;
           end;
        //если число нечетно и отрицательно
        if (odd(a[i,j])) and (a[i,j]<0) then
           begin
           inc(k_otr_nechethyh);          //увеличиваем на 1 количество найденных нечетных отрицательных
           inc(sum_otr_nechetnyh,a[i,j]); //увеличиваем сумму на значение найденного
           end;
        end;
    writeln;
    end;
writeln('Сумма всех ',sum_vseh);
writeln('Минимальное четное ',a[imin_chetnoe,jmin_chetnoe]);
writeln('Количество отрицательных нечетных ',k_otr_nechethyh);
writeln('Сумма отрицательных нечетных ',sum_otr_nechetnyh);
readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.07.2013, 16:32
Помогаю со студенческими работами здесь

Разработать программу для определения минимального значения из имеющегося массива целых чисел
Разработать программу для определения минимального значения из имеющегося массива целых чисел (массив формируется пользователем из 20...

Написать программу для определения наибольшей из трёх заданных величин X , Y и Z
Написать программу для определения наибольшей из трёх заданных величин X , Y и Z. Полученное значение присвоить переменной F, т. е....

Разработать программу преобразования двумерного массива в одномерный
Разработать программу преобразования двумерного массива в одномерный (элемент одномерного массива представляет собой сумму элементов...

Разработать программу для определения кратчайшего слова в тексте
Разработать программу для определения кратчайшего слова в тексте.

Разработать программу для определения времени вычисления выражений
Разработать программу для определения времени вычисления следующих выражений (переменные a,b,d, инициализировать произвольно): ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru