3. текст программы с ошибкой представлен ниже: program ni; var a: array [1..81 o£ integer; s, l: integer; begineor k = 1 to 8 do readln (a[k]); s = 0; for i: =1 to 3 doif a[k] < 0 then s : = s = a[1]; writeln(s)каким окажется ответ после исполнения этой программы,качестве элементов массива будут введены числа 1,2, 3, 4, -1, -2, -3, 4? как исправить программу, чтобы она решала ?
M, tons, kilos, grams: integer;
begin
write('Введите массу: ');
read(M);
// чтобы найти кол-во тонн, разделим нацело введенную массу
// на 1000000
tons := M div 1000000; // div - деление нацело
// чтобы найти кол-во килограмм, сначала возьмем остаток
// деления на 100000, затем полученное число разделим
// нацело на 1000.
kilos := (M mod 100000) div 1000; // mod - остаток от деления
// граммы - последние 3 цифры введенного числа
grams := M mod 1000;
writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');
end.
var M, tons, kilos, grams: integer;begin write('Введите массу: '); read(M); // чтобы найти кол-во тонн, разделим нацело введенную массу // на 1000000 tons := M div 1000000; // div - деление нацело // чтобы найти кол-во килограмм, сначала возьмем остаток // деления на 100000, затем полученное число разделим // нацело на 1000. kilos := (M mod 100000) div 1000; // mod - остаток от деления // граммы - последние 3 цифры введенного числа grams := M mod 1000; writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');end.