Премини към съдържанието
  • публикации
    5
  • коментари
    0
  • прегледи
    3149

За този блог

Публикации в този блог

 

Задачи

Зад.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 Едномерен масив Декларир

BoReTo

BoReTo

 

ДВУМЕРЕН МАСИВ

* Deklarirane na tip masiw Type <ime na tip>=Array[M..N, M1..N1] OF <tip na elementite>; * Obqwqwane na promenliwi Var <spisuk s promenliwi>:<ime na tip masiw>; *Vuvejdane na elementi For I:=1 TO 10 DO FOR J:= 1 TO 20 DO Begin Write ('B[',I,',',J,']='); Readln(B[i,J]); End; *Izwejdane na elementi For I:=1 TO 10 DO For J:=1 TO 20 DO Writeln('B[',I,',',J,']=',B[i,J]); *Sumirane S:=O; FOR I:=1 TO 10 DO FOR J:=1 T

BoReTo

BoReTo

 

Едномерен масив

Едномерен масив *Deklarirane na Tip Masiw TYPE <ime na tip>=ARRAY[M..N] OF <tip na elementite>; *Obqwqwane na promenlivi VAR<spisuk s promenlivi>:<ime na tip masiv>; *VUVEJDANE NA ELEMENTI FOR I:=1 TO 10 DO Begin Write('A[',I,']='); Readln(A); End; *Izvejdane na elementi FOR I:=1 TO 10 DO Writeln('A[',I,']=',A); *Сумиране S:=0 FOR I:=1 TO 10 DO S:=S+A; *Proizvedenie P=1; FOR I=1 TO 10 DO P:=P*А; *Broi

BoReTo

BoReTo

×
×
  • Добави ново...