Моя сессия в ваших руках

[Ксения)777)]

Моя сессия в ваших руках

Цикл:Дана последовательность, состоящая из n вещественных чисел. Опре-делить является ли она возрастающей или убывающей.

Одномерные массивы:Даны натуральное число n и массив A. Переформировать массив, расположив вначале массива все отрицательные элементы, а потом по-ложительные.

Матрицы:Дана матрица вещественного типа D(n,m), n, m <= 20. В заданной матрице вычерк-нуть все строки, содержащие более трех отрицательных элементов. Вывести на пе-чать исходную матрицу-результат или соответствующее сообщение, если таких строк не окажется или все строки будут удовлетворять условию.

 

[skaa]

На каком языке программировать?

 

[shrek=)]

Одномерные массивы:Даны натуральное число n и массив A. Переформировать массив, расположив вначале массива все отрицательные элементы, а потом по-ложительные.

var
a:array [1..1000] of integer;
n,i,k,j:integer;
begin
randomize;
write ('enter n=');
readln (n);
{Формирование массива}
for i:=1 to n do begin
a[i]:=random(10)-5;
write (a[i],' ');
end;
writeln;
k:=0;
{Сортировка массива}
for i:=1 to n-1 do begin
for j:=1 to n-i do begin
if a[j]>a[j+1]then
begin 
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
end;
end;
{Вывод получившегося на экран}
for i:=1 to n do
write (a[i],' ');
readln
end.

 

[shrek=)]

Матрицы:Дана матрица вещественного типа D(n,m), n, m <= 20. В заданной матрице вычерк-нуть все строки, содержащие более трех отрицательных элементов. Вывести на пе-чать исходную матрицу-результат или соответствующее сообщение, если таких строк не окажется или все строки будут удовлетворять условию.

var
a:array [1..20,1..20] of real;
i,j,k,c,c1,m,n:integer;
begin
randomize;
{Ввод размерности массива}
write ('m=');
readln (m);
write ('n=');
readln (n);
{Заполнение массива случайными числами}
for i:=1 to m do
begin
for j:=1 to n do begin
a[i,j]:=random*(10)-5;
write (a[i,j]:2:1,' ');
end;
writeln;
end;
writeln;
{Проверка массива}
for i:=1 to m do begin
k:=0;
for j:=1 to n do begin
if  a[i,j]<0  then inc(k);
end;
if k>=3 then begin
for c:=i to m-1 do
for c1:=1 to n do
a[c,c1]:=a[c+1,c1];
dec(m);
end;
end;
{Вывод массива}
for i:=1 to m do begin
for j:=1 to n do begin
write (a[i,j]:2:1,' ');
end;
writeln;
end;
readln
end.

 

[shrek=)]

Цикл:Дана последовательность, состоящая из n вещественных чисел. Опре-делить является ли она возрастающей или убывающей.

var
a:array [1..1000] of real;
n,i:integer;
begin
write ('n=');
readln(n);
for i:=1 to n do begin
write ('a[',i,']=');
readln (a[i]);
end;
i:=2;
while i<=n do begin
if a[i-1]>a[i] then begin
writeln ('Не возрастающая');
break;
end;
inc(i);
end;
if i=n+1 then writeln ('Возрастающая');
readln
end.