Народ помогите решить задачи по информатике в програме Паскаль

Question

Задание 7
Дан список изделий, стоимость и количество каждого. Вывести таблицу с указанием изделий, изготовленных на сумму от 20000 до 30000 руб. Определить среднюю стоимость по всем изделиям.
Задание 8
В прямоугольной матрице найти максимальное среднее арифметическое среди средних арифметических каждой строки матрицы и вычесть его из всех элементов матрицы, кроме элементов одной заданной строки.
Задание 9
Задан маршрут в виде
S1, S2, …, S20 – список пунктов;
R1, R2, …, R20 – расстояние от начала до пункта.
Найти расстояние
х1 – Тула – Орел,
х2 – Курск – Белгород,
х3 – Харьков – Запорожье.

artiom_melikian · Accepted Answer

задание №7:
program 7;
uses crt;
var
a,b,c:array[1..20] of real;
i,n:integer;
s:real;
begin
clrscr;
writeln(‘введите кол-во изделей’);
readln(n);
for i:=1 to n do
begin
writeln(‘введите название изделия №’,i);
readln(a);
writeln(‘введите цену изделия №’,i);
readln(b);
writeln(‘введите кол-во изделия №’,i);
readln(c);
s:=s+b;
end;
writeln(‘средняя стоимость всех изделий - ’,s/n);
writeln(‘список изделий стоимость кол-во’);
for i:=1 to n do
if b> 20000 and b< 30000 then
writeln(a,’ ’,b,’ ’,c);
readln;
end.