Дана программа. Определить результат выполнения. program N02; const A: array [1..6] of integer = (16,1,8,2,4,4); var i,k: integer; begin k:=0; for i:=2 to 6 do if A[i-1]>=A[i] then k:=k+1; write(k) end.
var A:array[1..100] of integer; n, i, Summ:integer; begin randomize; write('n = '); readln(n); Summ := 0; for i := 1 to n do begin A[i] := random(201) - 100; write(A[i], ' '); if A[i] > 0 then Summ := Summ + A[i]; end;
writeln; if Summ <> 0 then writeln('Summ = ', Summ) else writeln('Нет ни одного положительного элемента'); readln; end.
//вторая программа
var A:array[1..100] of integer; B:array[1..100] of real; n, i, Summ:integer; begin randomize; write('n = '); readln(n); Summ := 0; for i := 1 to n do begin A[i] := random(201) - 100; write(A[i], ' '); if A[i] mod 2 = 0 then B[i] := A[i] / 2 else B[i] := A[i]; end;
writeln; writeln; writeln('Result:'); for i := 1 to n do write(B[i], ' '); readln; end.
День недели понедельник
Дата 04.3.13
Чтение 2
Просмотр телепередач 4
Компьютерные игры 0
Активные игры 0
Общение, прогулки 0
Другое 1
День недели вторник
Дата 05.3.13
Чтение 1
Просмотр телепередач 4
Компьютерные игры 1
Активные игры 0
Общение, прогулки 1
Другое 1
День недели среда
Дата 06.3.13
Чтение 2
Просмотр телепередач 2
Компьютерные игры 1
Активные игры 0
Общение, прогулки 2
Другое 2
День недели четверг
Дата 07.3.13
Чтение 1
Просмотр телепередач 1
Компьютерные игры 3
Активные игры 0
Общение, прогулки 1
Другое 1
День недели пятница
Дата 08.3.13
Чтение 2
Просмотр телепередач 1
Компьютерные игры 0
Активные игры 0
Общение, прогулки 4
Другое 1
День недели суббота
Дата 09.3.13
Чтение 3
Просмотр телепередач 1
Компьютерные игры 0
Активные игры 0
Общение, прогулки 2
Другое 3
День недели воскресенье
Дата 10.3.13
Чтение 1
Просмотр телепередач 1
Компьютерные игры 2
Активные игры 1
Общение, прогулки 2
Другое 2
Итого за неделю: 57
Среднее: 7
var
A:array[1..100] of integer;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] > 0 then
Summ := Summ + A[i];
end;
writeln;
if Summ <> 0 then
writeln('Summ = ', Summ)
else
writeln('Нет ни одного положительного элемента');
readln;
end.
//вторая программа
var
A:array[1..100] of integer;
B:array[1..100] of real;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] mod 2 = 0 then
B[i] := A[i] / 2
else
B[i] := A[i];
end;
writeln;
writeln;
writeln('Result:');
for i := 1 to n do
write(B[i], ' ');
readln;
end.