помогите с лабой по паскалю :) plz

[Xeonыч]

1. Информация щ ежедневной температуре за февраль записана в одномерный массив. Написать прогу,которая считает сколько раз температура опускалась ниже нуля.


2.Заданы два одномерных массива A [1..n] и B [1..n] целых чисел,n<=100. написать прогу создания массива C [1..2n] из элементов массивов A и B (сначала идут элементы массива A ,потом элементы массива B).


3. Задан массив A [1..n] различных чисел, n<=100. написать прогу,которая определяет:
а) самый маленький отрицательный элемент
б) самый большой положительный элемент


4. Задан массив A [1..n] натуральных чисел, n<=100. написать прогу,которая выводит на экран элементы,которые при делении на 7 дают остаток 2. Если таких элементов нет то вывести соотв.сообщение.


5. Задан массив A [1..n] целых чисел, n<=100. написать прогу,которая изменяет массив слейд.образом: положительные элементы заменяет числом 1,отрицательные их квадратом,а нулевые - числом 7.



Люди помогите,бо мне друшли,массивы я пропустил по причине,а лабу сдать надо

[ix@ni@]

[off][ TRANSLIT >> RUS ]:[/off]
блин ну ти и двоесник, стидно

[off]добавлено спустя 6 минут:[/off]

1.

var TempArray: array [1..29] of integer;
var iLtn, i: integer;

begin

iLtn := 0;

for i:=1 to 29 do
if TempArray < 0 then iLtn := iLtn + 1; {* inc(iLtn); *}

Write (iLtn, " times, temerature was less then 0");
end;

[off]добавлено спустя 16 минут:[/off]

2.

var Array1: array [1.100] of char; {..of integer...}
var Array2: array [1.100] of char; {..of integer...}
var ResultArray: array [1.200] of char; {..of integer...}

var i:integer;

begin

for i:=1 to 100 do begin
ResultArray := Array1;
ResultArray[i+100] := Array2;
end
end;

[off]добавлено спустя 6 минут:[/off]

3.

var DIM: array [1..100] of integer;
var max, min, i: integer;

begin

max := -1;
min := 0;

for i:=1 to 100 do begin
if DIM > max then max := DIM;
if DIM < min then min := DIM;

end

if max > -1 then writeln ('maximum positive element is: ', max);
else writeln ('no positive elements found in array');

if min < 0 then writeln ('minimum negative element in array is: ', min);
else writeln('no negative elements found in array');
end;

[off]добавлено спустя 5 минут:[/off]

4.

var DIM: array [1..100] of integer;
var i: integer;
var exists: boolean;

begin
exists:=false;
for i:=1 to 100 do
if (DIM mod 7) = 2 then begin
writeln ('array element no ',i, ' value ', DIM);
exists:=true;
end
end;

[off]добавлено спустя 3 минуты:[/off]

var DIM: array [1..100] of integer;
var i: integer;

begin

for i:=1 to 100 do begin
if DIM[i] > 0 then DIM[i] := 1;
else
if DIM[i] =0 then DIM := 7;
else DIM[i] := DIM[i]*DIM[i];

end
end;

[off]добавлено спустя 1 минуту:[/off]

sorry for my pascal I did not use it for ages

[jsmax]

sorry for my pascal I did not use it for ages

Это видно ... Много мелких ошибок ...

[Xeonыч]

мне совсем другие варианты дали

[Cos]

Xeonыч,
вариантов безчисленное множество

[jsmax]

Cosciug,
Каждый по своему ...

[Atyla]

1.

Код: Выделить всё

 Var A: Array [1..30] of Integer;
      I, SumNegative: Byte;

Begin
 SumNegative:=0;
 For I:=1 to 30 Do If A[i]<0 Then Inc(SumNegative);
 WriteLn(SumNegative);
 ReadLn
End.

2.

Код: Выделить всё

Const n=100;
        A,B:Array [1..n] of Integer;
         C:Array [1..2*n] of Integer;
        I:Byte;

Begin
 For I:=1 to 2n Do If I>100 Then C[i]:=B[i] else C[i]:=A[i];
End.

3.

Код: Выделить всё

 Const n=100;
         A:Array [1..n] Of Integer;
         Negative, Positive:Integer;
         I:Integer;

Begin
 Negative:=A[1]; Positive:=A[1];
 For I:=2 to n Do
 Begin
  If (A[i]>0) and (A[i]>A[i-1]) Then Positive:=A[i];
  If (A[i]<0) And (A[i]<A[i-1]) Then Negative:=A[i];
 End;
End.

4.

Код: Выделить всё

 Const n=100;
 
 Var A:Array [1..n] Of Integer;
      I, CountDiv7:Byte;

Begin
 CountDiv7:=0;
 For I:=1 to N Do If A[i] div 7=2 Then
 Begin
  WriteLn(A[i]);
  Inc(CountDiv7);
 End;
 If CountDiv7=0 Then WriteLn('Not found');
End.

5.

Код: Выделить всё

Const n=100;
        A:Array [1..n] Of Integer;
        I:Integer;

Begin
 For I:=1 to n Do 
   If A[i]>0 Then A[i]:=1 Else 
     If A[i]<0 Then A[i]:=Sqr(A[i]) Else
      If A[i]=0 Then A[i]:=7;
End.