Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите с зачачкой в Паскале
1.Дана квадратная матрица целых чисел. Определить количество неотрицательных элементов, которые находятся под побочной диагональю матрицы.
2. дана последовательность символов (строка). Подсчитать наибольшее количество цифр, идущих подряд.
1 | Автор: kristinaD | 2012-12-11, 22:59   |  Репутация: [ + 0 ]
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 | Автор: Berestovskiy | 2012-12-12, 00:30   |  Репутация: [ + 211 ]
2.

напиши попозже, что-бы я не забыл - отвечу


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-12-12, 00:31   |  Репутация: [ + 211 ]
вот так правильно будет если я напишу 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.
4 | Автор: kristinaD | 2012-12-12, 12:51   |  Репутация: [ + 0 ]
ну от куда я знаю?)
проверь..)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2012-12-12, 13:44   |  Репутация: [ + 211 ]
ладно) со второй помоги пожалуйста)
6 | Автор: kristinaD | 2012-12-12, 16:25   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: