Составить трессировочную таблицу
Определите значение переменной «a» после выполнения алгоритма:
a:= 10
b:= 5
b:= 100 + a/b
a:= b/6*a
270
422
Ответы на вопрос:
program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.
Популярно: Информатика
-
dollfasse06.08.2020 15:18
-
mokhovayaarina30.11.2020 03:40
-
кирилл577506542142328.12.2022 12:57
-
wedh201111.04.2021 15:40
-
рана731.03.2021 02:49
-
yakurnovanasta14.05.2021 12:09
-
yvvv30.01.2022 20:19
-
lvalerika12.10.2021 19:18
-
Forkier26.09.2020 13:25
-
нуршат821.02.2020 06:08