Объясните работу программы. var k,m: integer; dat: array[1..10]of integer; begin dat[1]: =45; dat[2]: =55; dat[3]: =40; dat[4]: =15; dat[5]: =20; dat[6]: =80; dat[7]: =35; dat[8]: =70; dat[9]: =10; dat[10]: =45; m: = dat[1]; for k: =2 to 10 do begin if dat[k] < dat[1] then begin m: = m+ dat[k] end end; write(m); end.
Dat: array[1..10]of integer; // объявление массива
begin
Dat[1]:=45; //заполнение массива
Dat[2]:=55; //заполнение массива
Dat[3]:=40; //заполнение массива
Dat[4]:=15; //заполнение массива
Dat[5]:=20; //заполнение массива
Dat[6]:=80; //заполнение массива
Dat[7]:=35; //заполнение массива
Dat[8]:=70; //заполнение массива
Dat[9]:=10; //заполнение массива
Dat[10]:=45; //заполнение массива
m:= Dat[1]; //m присваивается значение первого элемента массива
for k:=2 to 10 do begin //цикл выполняющийся 8 раз (с2 до 10)
if Dat[k] < Dat[1] then //сравниваются значения первого и k-ого элемента массива
begin //если условие выполняется, то складывается значение первого элемента и k-ого
m:= m+ Dat[k]
end
end;
write(m);
end.
эта программа складывает значения тех элементов массива, которые меньше первого элемента данного массива и сам этот первый элемент.