Реферат: 10 задач с решениями программированием на Паскале
writeln('введите элементы массива');
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;
procedure mat(m,n:integer;var x:m);
var i,j: integer; t:real;
begin
writeln('изменённый матрица A[i,j] будет выглядеть так');
for i:=1 to m do
for j:=1 to n do
if i>j then if x[i,j] > x[j,i] then x[i,j]:=(x[i,j]+x[j,i])/2;
for i:=1 to m do
for j:=1 to n do
write( A[i,j]:2:1,' ');
end;
begin
vvod(5,5,A);
mat(5,5,A);
end.
Задача 4.
Условие: Определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве.
Программа:
program S2_Z4;
type m=array[1..100] of integer;
var A:m;
procedure vvod(m:integer;var x:m);
var i: integer;
begin writeln('введите элементы массива');
for i:=1 to m do