Question

Нехай елементи табличної величини a[1..10] набувають відповідно значень 5, -6, 3, 8, 25, -12, 15, 0, -2, 4. Яке значення набуватиме змінна k після виконання наступного фрагменту програми?


k:=0;
for i:=1 to 10 do
if a[i]>3
then k:=k+1;

Answer 1

Ответ:

5

Объяснение:

program GreaterThenThree;
uses crt;
var
   Counter : Integer;
   CounterOfElemsGreateThenThree : Integer  = 0;
   ElementsArray : array[1..10] of Integer = (5, -6, 3, 8, 25, -12, 15, 0, -2, 4);
begin
   clrscr;
   for Counter := 1 to Length(ElementsArray) do
   begin
       if (ElementsArray[Counter] > 3) then
           CounterOfElemsGreateThenThree :=
               CounterOfElemsGreateThenThree + 1
   end;
   write(CounterOfElemsGreateThenThree);
end.