. Объясните как это решается? Два программиста вместе пишут одну программу. Они решили, что будут писать - id2080652620201224 от Hiipotatohihi 24.12.2020 09:51

Question

Информатика: . Объясните как это решается? Два программиста вместе пишут одну программу. Они решили, что будут писать код по очереди блоками по N строчек кода. Когда любой из двух программистов пишет очередной блок, со временем он устает, и скорость его работы уменьшается следующим образом: после каждых 10 строчек кода время, затрачиваемое на очередную строчку кода, увеличивается на 1 минуту (начальная скорость написания кода – 1 строчка кода в минуту). Таким образом, первые 10 строчек кода он пишет в течение

Hiipotatohihi · Accepted Answer

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], ' ');
end.

MOGZ ответил