den2424denoztwre

16.02.2021 02:55 •  Информатика

1. Определите, какие числа будут выведены в результате выполнения следующего фрагмента программы: k := 1;
m := dat[k];
for i := 2 to 10 do if dat[i] < m then
begin
m := dat[i]; k := i;
end; writeln('m = ', m);
writeln('k = ', k);
(это фрагмент программы!)
2. Программисту было поручено написать программу нахождения суммы отрицательных элементов одномерного массива. Программист разработал программу, но допустил в ней одну ошибку. Текст программы с ошибкой представлен ниже:
program n1;
var
k, s: integer;
a: array [1..8] of integer;
begin
for k := 1 to 8 do readln(a[k]); s := 0;
for k := 1 to 8 do
if a[k] < 0 then s := s + a[1]; writeln(s);
end.