Көмектесіп жібересіздерме өтініш? ! ​

           

День недели понедельник

Дата 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.