Задачи

Зад.1 Едномерен масив

Декларирайте тип масив с име CLASS с 15 на брой елемента, които да са от целочислен тип. Декларирайте променливи А и В от този тип масив. Намерете и изведете сумата на елементите на масива A[15].

Program suma;

TYPE class=Array[1..15] OF Integer;

VAR A,B:class;I:Integer;S:Real;

Begin

FOR I:=1 TO 10 DO

Begin

Write('A[',I,']=');

Readln(A);

End;

S:=0;

FOR I:=1 TO 15 DO

S:=S+A;

Write('S=',S);

Readln

End.

Зад.2 Едномерен масив

Декларирайте тип масив с име Masiv с 50 на брой елемента, които да са от целочислен тип. Декларирайте променливa M тип масив. Намерете и изведете произведението на елементите на масива M[15].

Program TUPARABOTA;

Type Massiv=Array[1..50] Of Integer;

VAR M:Massiv;I:Integer;P:Real;

Begin

FOR I:=1 TO 50 DO

Begin

Write('M[',I,']=');

Readln(M);

End;

P:=1;

FOR I:=1 TO 50 DO

P:=P*M;

Write('P=',P);

Readln

End.

Зад.3 Двумерен Масив

Декларирайте тип двумерен масив с име Mas с 10 реда и 5 стълба.Елементите да са от целочислен тип. Декларирайте променливa MS този тип масив. Намерете и изведете произведението на елементите на масива MS[10,5].

Program TRALALA;

Type MAS=Array[1..10, 1..5] Of Integer;

VAR MS:MAS;I:Integer;P:real;J:Integer;

Begin

For I:=1 to 15 DO

FOR J:=1 to 5 DO

Write ('MS[',I,',',J,')=');

Readln(MS[i,J]);

End.

FOR I:=1 TO 10 DO

FOR J:=1 TO 5 DO

Writeln('MS[',I,',',J,']='MS[i,J]);

P:=1

FOR I:=1 to 15 DO

FOR J:=1 to 5 DO

P:=P*B[i,J];

Write('P=',P);

Readln

End.