//Задача #1
begin
var a,b,c: integer;
write('Введите ваш возраст: '); readln(a);
write('Введите время, проведенное за компьютером (в минутах): '); readln(b);
if b<0 then else
case a of
6..8: c:=15;
9..11: c:=30;
12..15: c:=45;
16..17: c:=60;
else write('Вам ',(a<6)? 'меньше 6':'больше 17-ти',' лет'); exit;
end;
write((c-b>0)? 'Вам осталось находиться за компьютером '+(c-b).ToString+' минут':'Ваш сеанс закончился '+abs(c-b)+' минут назад');
end.
//Задача 2
var
a:integer;
b:real;
begin
var N: array [1..4] of (string,real);
N[1]:=('АИ-92',42.30);
N[2]:=('АИ-95',45.30);
N[3]:=('АИ-98',53.71);
writeln('В наличии имеется: ');
for var L:=1 to 3 do
println(L+') ',N[L].Item1,' ',N[L].Item2,' руб/л');
write('Введите номер марки бензина (1-3): ');readln(a);
if (a>=1) and (a<=3) then begin
writeln('Вы выбрали бензин ',N[a].Item1);
write('Введите количество литров: ');readln(b);
write((B<0)? 'Указано отрицательное количество литров':('Сумма вашей покупки: '+N[a].Item2*b+' рублей'))
end;
end.
//Задача 4
begin
var K:char;
var N: array ['A'..'D'] of real;
for var L:='A' to 'D' do
begin
write('Введите расстояние до города ',L,' (км): ');readln(N[L]);
end;
write('В какой из городов вы направляетесь? ');readln(K);
K:=K.ToUpper;
write('Вам понадобится ',(N[K]/100)*9,' литров бензина');
end.
Примечание:
У задачи №3 слишком мало вводных параметров
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
end.
б)
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]-a[i]*2;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
end.
5 a)
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
k:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if (i>2) and (a[i]>a[i-1]) then
k:=k+1;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Кол-во элементов больших соседа слева ',k);
end.
5 б)
const n=10;
var a:array[1..n] of integer; z,i,k:integer;
begin
k:=0;
z:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
k:=k+1;
if k=2 then
begin
k:=0;
z:=z+1;
end;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Кол-во четных пар: ',z);
end.
6 а)
const n=10;
var a:array[1..n] of integer; s,k,i:integer;
sr:real;
begin
s:=0;
k:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((a[i] mod 2) = 0) and ((i mod 2) <> 0) then
begin
s:=s+a[i];
k:=k+1;
end;
end;
sr:=s/k;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Среднее арифметическое четных элементов с нечетными индексами: ',sr);
end.