Помогите решить задачи по Паскалю!

[Brizon]

1. Дан массив целых чисел. Найти максимальный элемент по модулю.
2. Дан двумерный массив. Сформировать одномерный массив, каждый элемент которого равен количеству элементов соответствующей строки.
3. Дана строка. Подсчитать количество знаков препинания в данной строке.
4. Дан текстовый файл. Переписать информацию во второй файл, удваивая все буквы.
5. Нарисовать на экране треугольник зеленого пвета.

[Xardas]

Сорри за флуд!!!!

Сказал дружок с предыдущей темы, что здесь задачки нахаляву решают, и "пришли" на форум те же самые типовые задачки, даже лень было по форуму посмотреть, не то чтоб уж попытаться самому хоть что-то сделать.

Что конктертно у Вас не получается? Ответ "ничего" означает, что и не было попыток самостоятельно решить. Хоть бы массивчики позаполняли бы и тд и тп... Уже хоть что-то.

[-=<[Evklidd]>=-]

поскольку вы не дали своих наработок решу то, что успею
1)

program p1;
var
 ar: array [1..20] of integer;
 max, i: integer;
begin
 Randomize;
 for i:= 1 to 20 do
  begin
   ar[i]:= random(200)-100;
   write(ar[i],' ');
  end;
 max:= ar[1];
 for i:= 1 to 20 do
  begin
   if abs(ar[i]) > abs(max) then
   max:= ar[i];
  end;
 writeln('Maximalnoe chislo po moduly: ', max);
 readln;
end.

[-=<[Evklidd]>=-]

3-я задача)

program p2;
var
 ds: set of char;
 s: string;
 i, c: integer;
begin
 ds:= [',','.',';',':','?','!'];
 writeln('Vvedite stroku: ');
 readln(s);
 c:= 0; 
 for i:= 1 to Length(s) do
  begin
   if s[i] in ds then
   inc(c);
  end;
 writeln('Kolichestvo znakov prepinania: ',c);
 readln;
end.

[Brizon]

Первая задача помоему так решается
program prg1;
const m=100;
var mas:array [1..m] of integer;
i,max,k,n:integer;
begin
write('vvedite rasmer massiva n=');
readln(n);
write('vvedite element massiva');
readln(mas[1]);
max:=mas[1];
k:=1;
for i :=2 to n do
begin
writeln('vvedite element massiva');
readln (mas[i]);
if max <mas[i] then
begin
max:=mas[i];
k:=1
end;
if max=mas[i] then k:=k+1;
end;
writeln('max =',max,' element');
readln;
end.

[Brizon]

вот 2,3,5 я ваще не знаю как решать

[Xardas]

Вам первую задачу Эвклид написал, непонятно зачем такие сложности: зачем переменная k я так и не понял и почему if max<mas[i]....

По поводу пятой задачи... Во втором посте я кажется написал... неужели лень на две темы вниз спуститься, те же самые задачи...

По поводу второй задачи так же че то непонятно... Каждый элемент которого равен количеству элементов соответствующей строки, как я понимаю, это будем массив из одинаковых элементов размерностью row (количество строк в двумерном массиве), состоящий из элементов равных col (количество столцов двумерного массива), смысл....

По поводу третьей... Вы даже поленились посмотреть то, что Вам написали... Если поднять глаза на 4 пост, то можно увидеть чудо - решение третьей задачи.

[motaro]

5-я так получилась

program rectangle;
uses graph;
var device,mode:integer;
begin
 device:=0;
 initgraph (device,mode,'d:\borlandc\turbopascal\bgi');
 line (320,150,225,250);
 line (320,150,400,250);
 line (225,250,400,250);
 setfillstyle (1,2);
 floodfill (300,175,15);
 readln;
 closegraph
 end.

[Brizon]

Помогите пожалуйста решить вторую задачку!

В следующий раз перед созданием темы прочитайте правила раздела.
Закрыто.

[Xardas]

Пост №7... Вопрос остается в силе.