0 / 0 / 0
Регистрация: 06.12.2014
Сообщений: 57
1

Сделать так чтобы элементы массива вводил я, а не программа выдавала их рандомно

17.12.2014, 19:38. Показов 689. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ввести целочисленный двумерный массив AN×M, вывести его. Найти
сумму его чётных элементов, исключая максимальный и минимальный (всего
массива). Найденной суммой заменить угловые элементы массива.
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
Program lab7;
function Ord(const b : Boolean) : Byte;
var
    Result : Byte;
begin
    cls;
    Result := 0;
    if b then
        Result := 1;
    Ord := Result;
end;
var
    n, m, i, j : Byte;
    arr : Array[1..100, 1..100] Of Integer;
    sum : Integer;
    max, min : Integer;
begin
    Randomize;
    repeat
        Write('n=');
        ReadLn(n);
    until (n <= 100);
    repeat
        Write('m=');
        ReadLn(m);
    until (m <= 100);
    max := -100; min := 100; sum := 0;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            arr[i, j] := Random(199) - 99;
            Write(arr[i, j]:6);
            if (max < arr[i, j]) then
                max := arr[i, j];
            if (min > arr[i, j]) then
                min := arr[i, j];
            {if Not Odd(arr[i, j]) then
                Inc(sum, arr[i, j]);}
            Inc(sum, Ord(Not Odd(arr[i, j])) * arr[i, j]);
        end;
        WriteLn;
    end;
    Dec(sum, max + min);
    for i := 0 to 1 do
        for j := 0 to 1 do
            arr[i * (n - 1) + 1, j * (m - 1) + 1] := sum;
    for i := 1 to n do
    begin
        for j := 1 to m do
            Write(arr[i, j]:6);
        WriteLn;
    end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2014, 19:38
Ответы с готовыми решениями:

Сделать так чтобы элементы массива вводил я, а не программа выдавала их рандомно
Ввести двумерный массив AN×M. Каждую вторую строку в массиве заменить остатками от деления её...

Сделать так чтобы элементы массива вводил я, а не программа выдавала их рандомно
Ввести двумерный массив A2×5. Определить в нём среднее геометрическое модулей отрицательных...

Как сделать так чтобы программа выдавала приглашение к началу игры?
Помогите выдать приглашение к началу игры и задать определенное количество попыток в игре...

Массив: как сделать так, чтобы рандомно выбирались только те элементы массива, которые не были выбраны раньше?
В общем, из массива рандомно выбирается элемент, как сделать так, чтобы выбирались только те,...

1
Эксперт Pascal/Delphi
6806 / 4565 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
18.12.2014, 11:39 2
строки 32,33 заменить на

Pascal
1
readln(arr[i, j]);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2014, 11:39
Помогаю со студенческими работами здесь

Как сделать так,чтобы размерность массива вводил пользователь и массив заполнялся случайными числами?
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;locale&gt; #include &lt;stdlib.h&gt; using namespace...

Как сделать так, чтобы пользователь сам вводил num.
Только начал изучать JAVA, появилось пару вопросов. Вот программка: public class TesT { /**...

Как сделать так чтобы я вводил символы с консоли, а не в программе их забивал заранее
char C1 = 'h'; void zadanie2 () { char C1 = 'h'; //вот тут приходится их забивать char C2 =...

Как сделать так, чтобы после перепрошивки сохранились слова, которые я вводил на клавиатуре?
Телефон samsung s3 хочу чтобы после перепрошивки сохранились слова которые я вводил на клавиатуре...


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

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

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