Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=1; while i<=... do begin writeln('Привет!'); i:=i+1 end; ответ: 2. Сколько раз будет выполнен этот цикл? i:=2; while i<5 do begin writeln('Привет!'); i:=i+1 end; ответ: 3. Какое число будет выведено на экран в результате выполнения этого цикла? i:=5; write('9'); while i<5 do begin write(i); i:=i+1 end; ответ: 4. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=7; while i>=... do begin writeln('Привет!'); i:=i-1 end; ответ: введите число 5. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=...; while i>=2 do begin writeln('Привет!'); i:=i-1 end; ответ: введите число 6. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=...; while i<=5 do begin writeln('Привет!'); i:=i+1 end; ответ: введите число 7. Чему будет равно значение переменной a после выполнения этого цикла? i:=4; a:=12; while i<6 do begin a:=a+i; i:=i+1 end; ответ: введите число
Ответы
Const
n=10;
var
a:array[1..n] of integer;
i,kp,sn: integer;
begin
Randomize;
Writeln('Элементы массива');
kp:=0; sn:=0;
for i:=1 to n do
begin
a[i]:= Random(31)-10;
Write(a[i]:4);
if a[i]>0 then Inc(kp);
if (i mod 2)<>0 then sn:=sn+a[i]
end;
Writeln;
Writeln('Количество положительных элементов: ',kp);
Writeln('Сумма элементов на нечетных местах: ',sn);
Writeln('Элементы массива после замены');
for i:=1 to n do
begin
if a[i]<10 then a[i]:=10;
Write(a[i]:4)
end;
Writeln
end.
Тестовое решение:
Элементы массива
10 11 -4 11 12 13 -1 -2 -8 7
Количество положительных элементов: 6
Сумма элементов на нечетных местах: 9
Элементы массива после замены
10 11 10 11 12 13 10 10 10 10
n=10;
var
a:array[1..n] of integer;
i,kp,sn: integer;
begin
Randomize;
Writeln('Элементы массива');
kp:=0; sn:=0;
for i:=1 to n do
begin
a[i]:= Random(31)-10;
Write(a[i]:4);
if a[i]>0 then Inc(kp);
if (i mod 2)<>0 then sn:=sn+a[i]
end;
Writeln;
Writeln('Количество положительных элементов: ',kp);
Writeln('Сумма элементов на нечетных местах: ',sn);
Writeln('Элементы массива после замены');
for i:=1 to n do
begin
if a[i]<10 then a[i]:=10;
Write(a[i]:4)
end;
Writeln
end.
Тестовое решение:
Элементы массива
10 11 -4 11 12 13 -1 -2 -8 7
Количество положительных элементов: 6
Сумма элементов на нечетных местах: 9
Элементы массива после замены
10 11 10 11 12 13 10 10 10 10
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
2. Свойство алгоритма,заключающееся в отсутствии ошибок,алгоритм должен приводить к правильному результату для всех допустимых входных значений,называется результативность.
3.Объем информационного сообщения 12288 битов,можно вводить как...
12288 бит = 1536 байт = 1,5Кбайт
4.Какой алгоритм называется линейным? Линейным называется алгоритм, который не имеет ответвлений (поворотов), другими словами прямой.