Пройти тест по программированию - Turbo Pascal - Ответ 3941828

@SOLISOUL · Регистрация: 21.12.2009

Author24 — интернет-сервис помощи студентам

Кликните здесь для просмотра всего текста

31. При выводе элементов одномерного массива используется алгоритм …
1. for i:=1 to n do write(a[i],’ ‘);
2. for i:=1 to n do write(a[n],’ ‘);
3. for i:=1 to n do write(I,’ ‘);
4. i:=1;while i<=n do write(a[i],’ );
5. i:=1; repeat write(a[i],’ ‘); until i>n;

Кликните здесь для просмотра всего текста

32. Вывод элементов одномерного массива можно организовать с помощью алгоритма …
1. i:=1;repeat write(a[i],’ ‘);i:=i+1;until i>n;
2. for i:=1 to n do write(a[n],’ ‘);
3. for i:=1 to n do write(I,’ ‘);
4. i:=1;while i<=n do write(a[i],’ );
5. i:=1; repeat write(a[i],’ ‘); until i>n;

Кликните здесь для просмотра всего текста

33. При проверке элементов массива на выполнение поставленного условия правильным является алгоритм …
1. flag:=0; for i:=1 to n do if <условие> then flag:=1;
2. for i:=1 to n do if <условие> then <действие 1> else <действие 2>;
3. for i:=1 to n do if <условие> then <действие>;
4. for i:=1 to n do a[i]:=<действие>:
5. i:=1; while i<=n do <действие>;

Кликните здесь для просмотра всего текста

34. Результатом выполнения указанного алгоритма является …
K:=1;For i:=2 to n do if a[i]>a[k] then k:=I;
1. максимальный элемент массива
2. номер максимального элемента массива
3. количество максимальных элементов в массиве
4. номер последнего положительного элемента массива
5. минимальный элемент массива

Кликните здесь для просмотра всего текста

35. Если будет выполнена программа, то результат её выполнения имеет вид:

Pascal

   Var B:array[1..10]of integer; L,i:Integer;
   Begin
     L:=1;
     For i:=1 to 20 do
      if odd(i) then 
       Begin
        B[L]:=sqr(i); L:=L+1;
      End;
For i:=1 to 10 do  Write(B[L]:4);
End.

1. 1 9 25 49 81 121 169 225 289 361
2. 2 4 6 8 10 12 14 16 18 20
3. 4 16 36 64 100 144 196 256 324
4. 4 9 16 25 49 81 121 169 225 289
5. 1 4 9 16 25 36 49 64 81 100

Кликните здесь для просмотра всего текста

36. При выполнении указанного фрагмента программы тело цикла выполнится … раз
k:=0; for i:=1 to k+4 do s:=s+2;
1. 6
2. 8
3. 4
4. 10
5. 12

Кликните здесь для просмотра всего текста

37. Правильным вариантом сортировки массива В[10] по возрастанию является …
1.

Pascal

1
2
3

for i:=1 to 9 do
           for j:=1 to 9 do
               if a[i]>a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;

2.

Pascal

1
2
3

for i:=1 to 9 do
           for j:=1 to 10 do
   if a[i]>a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;

3.

Pascal

1
2
3

for i:=1 to 9 do    
        for j:=i+1 to 10 do
            if a[i]>a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;

4.

Pascal

1
2
3

for i:=1 to 9 do
         for j:=1 to 9 do
            if a[i]<a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;

5.

Pascal

1
2
3

for i:=1 to 9 do
         for j:=i+1 to 10 do
           if a[i]<a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c end;

Кликните здесь для просмотра всего текста

38. Алгоритмом нахождения номера максимального элемента массива является:
1

Pascal

1 2	max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i];

2

Pascal

1 2	max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; k:=I;

3

Pascal

1 2	max:=a[1]; for i:=2 to n do if a[i]>max then begin max:=a[i]; k:=i;end;

4

Pascal

1 2	max:=a[1];k:=1; for i:=2 to n do if a[i]>max then begin max:=a[i];k:=i;end;

5

Pascal

1 2	max:=a[k]; for i:=2 to n do if a[i]>max then k:=i;

Кликните здесь для просмотра всего текста

39. При выполнении фрагмента программы при заданном массиве 3, 8, 7, 9, 4, 10, 2, 12 оператор m:=a[k] будет повторяться … раз

Pascal

var a: array[1..8] of integer; m, k: integer;
       begin for k:=1 to 8 do readln(a[k]);
          m:=a[k]; write(m)
       end.

1. 7
2. 8
3. 4
4. 1
5. 5

Кликните здесь для просмотра всего текста

40. Переменная k после исполнения фрагмента программы при x=7 для массива: 2, 3, 5, 7, 9, 12, 0, 7, 6, 7
k:=1; while (a[k]<>x) and (k<=10) do k:=k+1; примет значение:
1. 8
2. 1
3. 10
4. 4
5. 7

Вернуться к обсуждению:
Пройти тест по программированию Turbo Pascal

Следующий ответ