1) r=187,5
a=9
d=63
2) var a,b,c,d,e:integer;
sr:real;
begin
writeln('Оценка за первый опрос');
read(a);
writeln('Оценка за второй опрос');
read(b);
writeln('Оценка за третий опрос');
read(c);
writeln('Оценка за четвертый опрос');
read(d);
writeln('Оценка за пятый опрос');
read(e);
sr:=(a+b+c+d+e)/5;
writeln('Среднее значение равно ',sr);
end.
3)var a,b,d, dengi,ostatok: integer;
begin
writeln('Количество денег у человека');
read(dengi);
writeln('Стоимость перчаток');
read(a);
writeln('Стоимость портфеля');
read(b);
writeln('Стоимость галстука');
read(d);
ostatok:=dengi-a-b-d;
writeln('Остаток от изначальной суммы равен ',ostatok);
end.
Ответ 16. _________будут вопросы пишите
Var a: array of integer; // Объявление массива целых чисел
i, n: integer; // объявление целочисленных переменных
begin
// Запросим с клавиатуры размер массива
// и запишем его в переменную n
write('введите n:');
readln(n);
// Теперь выделим память под n элементов массива
SetLength(a, n);
// теперь запросим с клавиатуры n чисел для массива
for i := 0 to n-1 do begin
write('a[', i, ']=');
readln(a[i]);
end;
// теперь в цикле уменьшим каждый элемент на единицу
for i := 0 to n-1 do
a[i] := a[i] - 1;
// распечатаем массив
for i := 0 to n-1 do
write(a[i], ' ');
<span>end.</span>
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
Sort(t); t.Println;
Println('Прозведение:',t[0]*t[1]*t[2]);
end.
