Алгоритмы и программы. Афанасьева Т. В - 130 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

130
<write> – вывод элементов массива одним из вышеприведенных
способов.
Пример 7.17. Подсчитать сумму положительных элементов.
var
a:array[1..5,1..7] of integer;
i,j:byte;
k:integer;
begin
<read>;
k:=0;
for i:=1 to 5 do
for j:=1 to 7 do
k:=k+a[i,j];
writeln(k);
end.
Пример 7.18. Определить произведение элементов в каждой строке.
var
a:array[1..4,1..4] of real;
i,j:byte;
p:real;
begin
for i:=1 to 4 do
begin
p:=1; { начальное значение произведения }
for j:=1 to 4 do
begin
read(a[i,j]);
p:=p*a[i,j]; { вычисление произведения}
end;
write(p);
end;
end.
Пример 7.19. В двумерном массиве подсчитать сумму элементов в
каждом столбце.
рrogram lupa7;
const
n=3;
m=3;
type arr=array[1..n,1..m] of integer;
var

Страницы