Задачу в трех вариантах надо сделать: Обычным способом, через запись, через процедуры.
Задание 7
Даны массивы
N1, ... , N7 - наименования операций по ремонту оборудования;
S1, ... , S7 - стоимость каждой операции.
Вывести список операций, стоимость которых от 100 до 150 руб. Найти самую дорогую операцию.
Вот я начал:
var
n:array [1..7] of string [5];
s:array [1..7] of integer;
spisok:string;
f:text;
dor: real;
imax:byte;
t1, t2, t3, t4 string [41];
begin
assign (fl, 'C:\remont.txt');
reset (fl);
for i:=1 to 7 do
begin
readln (fl, n[i], s[i]);
close (fl);
Подскажите как дальше? Как с помощью таблицы аски таблицу нарисовать?
Вот файл:
rem-1 50
rem-2 70
rem-3 100
rem-4 120
rem-5 140
rem-6 150
rem-7 200
Сообщение отредактировано: Russel -