Напишите программу в среде программирования
PascalABC. Протестируйте ее. Сделайте вывод о том, что обрабатывает программа. в ответе запишите пошаговое выполнение программы (всё, что делает программа) в словесной форме.
Program m_3;
var s, i: integer;
a: array[1..6] of integer;
begin
randomize;
for i:=1 to 6 do a[i]:=random (50):
for i:=1 to 6 do write (a [i],' ');
S:=0;
for i:=1 to 6 do if (a[i]>10) and (a[i]<30) then s:=s+a[i]:
write('s=', s)
end.
PascalABC. Протестируйте ее. Сделайте вывод о том, что обрабатывает программа. в ответе запишите пошаговое выполнение программы (всё, что делает программа) в словесной форме.
Program m_3;
var s, i: integer;
a: array[1..6] of integer;
begin
randomize;
for i:=1 to 6 do a[i]:=random (50):
for i:=1 to 6 do write (a [i],' ');
S:=0;
for i:=1 to 6 do if (a[i]>10) and (a[i]<30) then s:=s+a[i]:
write('s=', s)
end.
More Questions From This User See All
Answers & Comments
Ответ:
Программа делает следующее:
Объяснение:
Она создаёт две переменные целочисленного типа данных(integer) s и i, а также массив а из 6 элементов целочисленного типа данных(integer).
В этой строке for i:=1 to 6 do a[i]:=random (50); программа заполняет массив а числами, чьи значения рандомно генерируются в интервале [0, 50). На следующей строчке все элементы массива выводятся в строчку через пробел. Дальше переменной s, которая будет хранить сумму элементов массива a, присваиваеться начальное значение 0. На строчке for i:=1 to 6 do if (a[i]>10) and (a[i]<30) происходит поочерёдный выбор элементов массива, которые находятся в интервале 10<i<30, с последующим прибавлением их в общую сумму s. На строке write('s=', s) выводится сумма элементов массива которые находятся в интервале 10<i<30.