Задания для урока-практикума "Двумерные массивы"

Задания для практикума «Двумерные массивы»

Сформировать таблицу «Отчёт о продажах» за год для некоторого предприятия. У предприятия семь магазинов. Матрицу продаж заполнить случайным образом (диапазон взять от 5 до 30).

Найти

1. Сколько товара продано за год первыми тремя магазинами?

2. Сколько товара продано в мае?

3. Сколько месяцев в году 03 магазин продавал не более 10 штук товара?

4. Распечатать, сколько каждый магазин продал товара за год.

5. Выяснить, в каком месяце всех меньше продали товара?

Задания для практикума «Двумерные массивы»

Сформировать таблицу «Отчёт о продажах» за год для некоторого предприятия. У предприятия семь магазинов. Матрицу продаж заполнить случайным образом (диапазон взять от 5 до 30).

Найти

1. Сколько товара продано за год первыми тремя магазинами?

2. Сколько товара продано в мае?

3. Сколько месяцев в году 03 магазин продавал не более 10 штук товара?

4. Распечатать, сколько каждый магазин продал товара за год.

5. Выяснить, в каком месяце всех меньше продали товара?

Ответы

(проверка или самопроверка)

const N=12; M=7;

a=5; b=31;

var c: array [1..N,1..M] of integer;

d: array [1..M] of integer;

z: array [1..N] of integer;

s,s1:integer;

k, min, kmin, i, j: integer;

Begin

randomize;

writeln ('Отчёт о продажах');

for i:=1 to N do

begin

for j:=1 to M do

begin

c [i, j]:= random(b-a)+a;

write (c[i,j]:4);

end;

writeln;

end;

writeln;

writeln('Найдём сумму элементов трёх первых столбцов матрицы');

s:=0;

for i:=1 to N do

for j:=1 to 3 do

s:= s+c [i, j];

writeln ('s=',s);

writeln;

writeln('Найдём сумму элементов 5 строчки матрицы');

s1:=0;

for j:=1 To 7 do

s1:=s1+c [5,j];

writeln ('s1=' , s1);

writeln;

writeln('Сколько элементов в 3 столбце ');