Какая-либо часть теста.
Перейти в поле "Что вы хотите сделать?"
ALT+Q
Открыть
CTRL+O
Сохранить
CTRL+S
Закрыть
CTRL+W
Вырезать
CTRL+X
Копировать
CTRL+C
Вставка
CTRL+V
Выбрать все
CTRL+A
Полужирный
CTRL+B
Курсив
CTRL+I
Подчеркнутый
CTRL+U
Уменьшить размера шрифта на один пункт
CTRL+[
Увеличить размера шрифта на один пункт
CTRL+]
Выровнять текст по центру
CTRL+E
Выровнять текст по левому краю
CTRL+L
Выровнять текст по правому краю
CTRL+R
Отмена
ESC
Отменить операцию
CTRL+Z
Повторить операцию
CTRL+Y
Редактирование предназначено для устранения ошибок, перемещения символов, слов, строк, фрагментов и внесение других изменений в содержимое документа. Редактирование документа осуществляется как в процессе ввода текста, так и после его ввода. Как правило, редактирование текста выполняется перед форматированием и применением стилей.
нумерация элементов, а соответственно и строк в массиве начинается с 0
программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.
так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100
var
n, k : integer;
a : real;
var d : array[,] of real;
begin
write('введите размер матрицы n=');
readln(n);
d := new real[n,n];
for var i := 0 to n-1 do begin
for var j := 0 to n-1 do d[i,j] := random(101);
end;
write('введите номер строки k=');
readln(k);
a := d[k,k];
for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;
end.
var t,m,d:real;
begin
write('Введите время работы в часах и ширину полотна в метрах ');
readln(t,m);
d:= 1/m; //Длина кв метра при ширине m
t:=t*60; //время в минутах
writeln('Длина произведенной ткани ', t/mt*d:0:2,' метра');
end.
Тестовое решение:
Введите время работы в часах и ширину полотна в метрах 8 0.75
Длина произведенной ткани 42.67 метра