"Онлайн-экзамен "Информационные технологии обработки данных"

10 вопросов примерно такого характера. дается три онлайн-попытки.
Файлы
Question 1
В файле целого типа данные расположены следующим образом:
3 4 -5 6 -12 -4 0 -3 -6 1 23 -12
Какое значение примет переменная P после работы следующего фрагмента программы?
Var
F : file of integer;
P, x : integer;
Begin
...
P :=0;
Assign(F, 'Dan.dat');
Reset(F);
While not eof (F) do begin
Read(F, x);
If x>0 then P := P+x;
End;
...
End;
В ответ введите только значение.
Введите слово, словосочетание или символьно-цифровое выражение.
Операторы цикла
Question 2
Нижеприведенный текст программы вычисляет количество членов последовательности
k:=0;
For i:=1 to n do begin
If a[i] mod 3=0 then k:=k+1;
End;
являющихся нечетными числами
кратных 3
являющихся простыми числами
являющимися квадратами четных чисел
удовлетворяющих условию
Выберите все верные ответы (может быть несколько или один).
Одномерные массивы
Question 3
В программе описан одномерный массив следующим образом:
A:array [1..12] of integer;
Какому значению будет равен элемент массива A[5] после выполнения процедуры Massiv, если в исходном массиве записаны следующие числа?
5.51 3.81 2.92 2.22 0.52 4.58 2.64 4.4 3.46 4.88 -0.01 1.14
Procedure Massiv;
Var i,j: integer;
k: real;
Begin
For i:=1 to 11 do
For j := 1 To 11 do
If A[j] > A[j+1] Then
begin
k := A[j]; A[j] := A[j+1]; A[j+1] := k;
end;
end;
Введите слово, словосочетание или символьно-цифровое выражение.
Процедуры и функции
Question 4
В программе описаны процедура и переменные следующим образом:
Var
a, b, d, n :integer;
f, t : real;
Procedure MyProc(x, y, n : integer; var S: real);
Begin
S := (x+y)/n;
End;
Отметьте неправильно оформленный вызов процедуры из основной программы.
MyProc(4,5,d,n);
MyProc(a,b,d,t);
MyProc(f,t,d,f);
MyProc(a,b,4,5);
MyProc(4,5,d,f);
MyProc(4,5,d,n,f);
Выберите все верные ответы (может быть несколько или один).
Матрицы
Question 5
Что будет выведено на экран после выполнения процедуры Massiv для заданного двумерного массива?
Const n = 5; m = 2;
Var Matr : array [1..5, 1..2] of Integer;
Procedure Massiv;
var i, j : Byte;
f : Integer;
Begin
f := 0;
For i := 1 To n do begin
For j:=1 To m do
If Matr[i, 1] y Then m := x-5 Else if x=y then m := y else m := 0;
Writeln(m:3:1);
Введите слово, словосочетание или символьно-цифровое выражение.