Получение третьего массива из двух

@Reskars · Регистрация: 10.03.2016

Студворк — интернет-сервис помощи студентам

Даны два двумерных массива из 12 строк и 28 столбцов. В первом из них записано количество осадков (в мм), выпавших за каждый из первых 28 дней каждого месяца 2009 года, во втором — аналогичные сведения за 2010 год. Получить третий массив с данными об изменении количества осадков для каждого дня (в мм).
И сразу аналогичная задача но на паскале которую нужно перевести

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
uses crt;
const nmax=20;
const n=12;
        m=28;
var   a,b,c:array[1..n,1..m] of integer;
 i,j:byte;
begin
clrscr;
writeln('ГЊГ*Г±Г±ГЁГў A:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-5;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln('ГЊГ*Г±Г±ГЁГў B:');
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=random(20)-5;
write(b[i,j]:4);
end;
writeln;
end;
writeln;
write('ГЌГ*Г¦Г¬ГЁГІГҐ Enter Г¤Г«Гї ГЇГ°Г®Г¤Г®Г«Г¦ГҐГ*ГЁГї');
readln;
writeln('Г’Г°ГҐГІГЁГ© Г¬Г*Г±Г±ГЁГў:');
for i:=1 to n do
begin
for j:=1 to m do
begin
c[i,j]:=b[i,j]-a[i,j];
write(c[i,j]:4);
end;
writeln;
end;
readln
end.

Кликните здесь для просмотра всего текста

также возможные проблемы с переводом

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
program sds;
var  a:array[1..20,1..2] of integer;
     i,j,t:integer;
     f1, f2: text;
begin
assign(f1,'1.in');
reset(f1);
assign(f2,'1.out');
rewrite(f2);
for i:=1 to 15 do
    for j:=1 to 2 do
        readln(f1,a[i,j]);
for i:=15 downto 1 do
    if i mod 3=0 then
       begin
       for t:=20 downto i+1 do
           for j:=1 to 2 do
               a[t,j]:=a[t-1,j];
       for j:=1 to 2 do
           a[i+1,j]:=0;
       end;
for i:=1 to 20 do
    begin
    for j:=1 to 2 do
        write(f2,'A[',i:2,',',j:2,'] ',a[i,j]:4,' ');
    writeln;
    end;
close(f1);
close(f2);
end.

@Reska · 11.03.2016, 14:37

Совсем не было опыта с паскалем, начал сразу си шарп

@Spiderman5 · 11.03.2016, 16:44

C#
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
            const int sizeColumns = 28;
            const int sizeRows = 12;
 
            int [,] lastYear = new int[sizeRows, sizeColumns];
            int[,]  currentYear = new int[sizeRows, sizeColumns];
            int[,] difference = new int[sizeRows, sizeColumns];
 
            Random rand = new Random();
 
            for (var i = 0; i < sizeRows; i++)
            {
                for (var j = 0; j < sizeColumns; j++)
                {
                    lastYear[i, j] = rand.Next(1, 1001);
                    currentYear[i, j] = rand.Next(1, 1001);
                }
            }
 
            // получаем разницу в 3 массиве
            for (var i = 0; i < sizeRows; i++)
            {
                for (var j = 0; j < sizeColumns; j++)
                {
                    difference[i, j] = lastYear[i, j] - currentYear[i, j];
                }
            }

@afront · 11.03.2016, 17:14

C#
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
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace rainfall
{
    class Program
    {
        static void Main(string[] args)
        {
            Random rnd = new Random();
            int n = 12, m = 28, nmax = 20;
            int[,] a  = new int[n, m];
 
            int i = 0;
            Console.Write("Маcсив А:\n");
            while (i < n)
            {
                for (int j = 0; j < m; j++)
                {
                    a[i, j] = rnd.Next(0, 20) - 5;
                    Console.Write(String.Format("{0,4:#}", a[i, j]));
                }
                Console.Write("\n");
                i++;
            }
            Console.Write("Маcсив В:\n");
            int[,] b = new int[n, m];
            i = 0;
            while (i < n)
            {
                for (int j = 0; j < m; j++)
                {
                    b[i, j] = rnd.Next(0, 20) - 5;
                    Console.Write(String.Format("{0,4:#}", b[i, j]));
                }
                Console.Write("\n");
                i++;
            }
            Console.Write("Нажмите Enter для продолжения");
            Console.ReadKey();
            Console.Write("\nТретий маcсив:\n");
            int[,] с = new int[n, m];
            i = 0;
            while (i < n)
            {
                for (int j = 0; j < m; j++)
                {
                    с[i, j] = b[i, j] + a[i, j];
                    Console.Write(String.Format("{0,4:#}", с[i, j]));
                }
                Console.Write("\n");
                i++;
            }
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@Reska 0 / 0 / 2 Регистрация: 13.12.2015 Сообщений: 261
	11.03.2016, 14:37
	Совсем не было опыта с паскалем, начал сразу си шарп 0