Цитата:
Сообщение от Гринч
Помоги пожалуйсто с решением задач на Паскале...
3. Дан двумерный массив A[10*15] . Определить, есть ли в данном массиве строка, в которой ровно 2 отрицательных элементов. Вывести номер строки на экран.
4. В матрице A[12*12] в каждом третьем столбце найти максимальное число, записать в результирующий массив.
и если можно, блок схемы тоже..........
заранее спасибо..........
|
VAR
A:ARRAY[1..10,1..15] of REAL;
i,j,p,Q:INTEGER;
BEGIN
FOR i:=1 TO 10 DO
FOR j:=1 TO 15 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
RealLn(A[i,j]);
END;
Q:=0;
FOR i:=1 TO 10 DO
BEGIN
p:=0;
FOR j:=1 TO 15 DO
IF A[i,j]<0 THEN p:=p+1;
IF p=2 THEN
BEGIN
Write(i:3);
Q:=Q+1;
END;
END;
WriteLn;
IF Q=0 THEN WriteLn('Array contains no strings with 2 negative elements');
ReadLn;
END.
VAR
A:ARRAY[1..12,1..12] of INTEGER;
B:ARRAY[1..4] of INTEGER;
i,j,MAX:INTEGER;
BEGIN
FOR i:=1 TO 12 DO
FOR j:=1 TO 12 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
RealLn(A[i,j]);
END;
FOR j:=1 TO 4 DO
BEGIN
MAX:=-32000;
FOR i:=1 TO 12 DO
IF A[i,3*j]>MAX THEN MAX:=A[i,3*j];
B[j]:=MAX;
END;
FOR j:=1 TO 4 DO
Write(B[j]:7);
WriteLn;
ReadLn;
END.
А насчет блок-схем - извините, помочь не могу: никогда вычерченными по стандарту блок-схемами не пользовался и даже не учился их чертить.