Во Определить имя массива
Указать тип элементов массива.
Запишите максимальное возможное количество элементов в массиве.
Какой переменной обозначены индексы элементов массива.
Количество элементов в данном массиве.
Как обозначается текущий элемент массива.
Есть ли отрицательные элементы в данном массиве.
Запишите промежуток чисел, из которого выбираются элементы массива случайным образом.
Определить тип переменной, в которой сохраняется результат.
Что вычисляет данная программа.
program z3;
var
c:array[1. . 20] of integer;
n, d, m, k: integer;
begin
d:=17;
for k: =1 to d do
begin
c[k]:=random(41)+15;
write(c[k]:4);
end;
writeln;
m:=c[1]; n:=1;
for k:=2 to d do
if c[k]>m then
m:=c[k];
writeln(m);
end.
ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:
Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.
НАЗНАЧЕНИЕ ПРОГРАММЫ:
Расчет количества рулонов обоев для указанной комнаты.
ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:
Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.
ВВОД
Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).
ВЫВОД
Выводится количество рулонов n
Объяснение:
program z1;
var a:array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j,s:integer;
begin
write ('Введите количество строк (n<=100) ');
read (n);
write ('Введите количество столбцов (m<=100) ');
read (m);
writeln ('Массив А');
for i:= 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(19)-9;
write(a[i,j]:4)
end;
writeln
end;
for j:= 1 to m do
begin
s:=0;
for i:=1 to n do if (a[i,j]>0) and (a[i,j] mod 2 = 0) then s:=s+a[i,j];
b[j]:=s
end;
writeln ('Массив B');
for j:= 1 to m do write (b[j]:4)
end.