База ответов ИНТУИТ

Решение олимпиадных задач по информатике

<<- Назад к вопросам

Программа на Паскале, фрагмент которой приведен ниже, выводит…

…n:=3; y:=-1;for i:=1 to n dofor j:=1 to n do x[i,j]:=y*(-2); y:=x[i,j];for i:=1 to n dofor j:=1 to n doif (x[i,j]>0) and (i*j mod 2 =0) then writeln (i+j);…

(Ответ необходимо ввести в поле ввода.)

Варианты ответа
Похожие вопросы

Программа на Паскале, фрагмент которой приведен ниже, выводит…

…for i:=1 to n dofor j:=1 to m doif (x[i,j]>0) and (i*j mod 2 =0) then writeln (i,j);…

Программа на Паскале, фрагмент которой приведен ниже, выводит индексы положительных элементов двумерного массива, произведение индексов которых четно. Какое логическое выражение вместо вопросительного знака в ветвлении необходимо указать:

…for i:=1 to n dofor j:=1 to m doif ? then writeln (i,j);…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, значение переменной s будет равно:

…n:=3; s:=0; k:=1;for i:=1 to n dofor j:=1 to n dobeginx[i,j]:=k; k:=k+1;endfor i:=1 to n dofor j:=1 to n doif (i<=n-j+1) then s:=s+x[i,j];…

В программе на Паскале все значения элементов двумерного массива равны "2". Что будет выведено на экран монитора в результате выполнения программы, фрагмент которой приведен ниже:

…n:=5; x[2,3]:=5; x[4,1]:=1; max:=x[1,1]; min:=x[1,1];for i:=1 to n dofor j:=1 to n doif x[i,j]>max then max:=x[i,j]else min:=x[i,j];writeln (max, ' ', min);…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено:

…s:=0;for i:=1 to n dofor j:=1 to n doif (i<=n-j+1) then s:=s+x[i,j];…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено:

…s:=0;for i:=1 to n dofor j:=1 to n doif (i>n-j+1) then s:=s+x[i,j];…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдет:

…max:=x[1,1]; min:=x[1,1];for i:=1 to n dofor j:=1 to m doif x[i,j]>max then max:=x[i,j]else min:=x[i,j];…

Фрагменты программ на Паскале реализуют алгоритмы формирования таких комбинаторных групп, как:

  • ...for i:=1 to n-1 dofor j:=i+1 to n do writeln (A[i], A[j]); 
  • ...for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); 
  • …for i:=1 to n dofor j:=1 to n do if i<>j then writeln (A[i], A[j]);
  • …for i:=1 to n dofor j:=1 to n do writeln (A[i], A[j]);
  • В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп:

    ...for i:=1 to n-1 dofor j:=i+1 to n do writeln (A[i], A[j]); …

    В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп:

    ...for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); …