|
помогите с зачачкой в Паскале
|
|
1.Дана квадратная матрица целых чисел. Определить количество неотрицательных элементов, которые находятся под побочной диагональю матрицы.
2. дана последовательность символов (строка). Подсчитать наибольшее количество цифр, идущих подряд.
|
|
|
|
1.
Const
n=5;
var
a:array[1..n,1..n]of integer;
amount,i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=2 to n do
for j:=n-i+2 to n do
if a[i,j] > 0 then amount:=amount+1;
writeln(amount);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
2.
напиши попозже, что-бы я не забыл - отвечу
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
вот так правильно будет если я напишу 1 задачу?
uses crt;
var a:array[1..10,1..10] of longint;
n,i,j,l:longint;
begin clrscr;
randomize;
n:random(6)+5;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(41)-20;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
l:=0;
for i:=1 to n do
for j:=n+1-i to n do
if a[i,j]>0 then
l:=l+1;
writeln(l:10);
readln;
end.
|
|
|
|
ну от куда я знаю?)
проверь..)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
ладно) со второй помоги пожалуйста)
|
|
|
|
