Question

напишите перевод программы
Program mas_3 ;
var s, i: integer;
a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(100);
for i:=1 to 10 do write (a[i],' ');
s:=0;
for i:=1 to 10 do
if (a[i]>10) and (a[i]<30) then s:=s+a[i];
write('s=', s)
end.

Answer 1

Ответ:

что понимать под "переводом программы"????

Объяснение:

Program mas_3 ; // название программы mas_3

var s, i: integer; // объявление целочисленных переменных s и i

a: array[1..10] of integer; // объявление целочисленного одномерного массива a размером 10

begin // начало программы

randomize; // инициализация генератора случайных чисел

for i:=1 to 10 do a[i]:=random(100); // заполнение массива a случайными числами в диапазоне от 0 до 99

for i:=1 to 10 do write (a[i],' '); // вывод на экран элементов массива через пробел

s:=0; // присвоение переменной s значения 0

for i:=1 to 10 do // цикл для переменной i от 1 до 10

if (a[i]>10) and (a[i]<30) then s:=s+a[i]; // если значение элемента массива a больше 10 и меньше 30, то к переменной s прибавляем это значение

write('s=', s) // вывод на экран значения s

end. // конец программы