Регистрация
Rukgz
12.11.2020 18:27
Информатика
Есть ответ 👍

Доброго вечера, . решите, , по информатике.

представленный ниже фрагмент программы обрабатывает элементы одномерного целочисленного массива a с индексами от 1 до 10. перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 3, 5, 3, 10, 7, 4, 6, 12, 9 (т. е. a [1] = 2, a [2] = 3, …, a [10] = 9).
определите значение переменной s после выполнения фрагмента, записанного ниже на пяти языках программирования.
n : = 10;
s : = 0;
for i: =2 to n do begin
if a[i-1] < a[i] then begin
a[i] : = a[i] - a[i-1];
s : = s + a[i]
end
end; ​

246
374
Посмотреть ответы 2

Ответы на вопрос:

DianaSims
DianaSims
4,5(63 оценок)

ответ:

program gt;

var b: array[1..40]of integer;

i: integer;

begin

randomize;

for i: =1 to 40 do

begin

b[i]: =random(100);

if(i< =10)then b[i]: =b[i]*3;

write(b[i],' ');

end;

end.

2)

задается с клавиатуры

program gt;

var b: array[1..40]of integer;

i: integer;

begin

for i: =1 to 40 do

begin

read(b[i]);

if(i< =10)then b[i]: =b[i]*3;

end;

for i: =1 to 40 do

write(b[i],' ');

end.

сабина422
сабина422
4,7(31 оценок)

program Hello;

var x:integer;

begin

readln (x);

if x>=0 then writeln (sqrt (x))

else WriteLn(abs(x));

end.

Популярно: Информатика