Где выражение (If x) выполняется, так как переменная x хранит значение. Условие (x>y) не выполняется, поэтому переходим к else и дальше идёт присваивание x и y значение равное 3.
ПОПРАВКА
Программа написана неверно, так как ветвления (if) должны быть после begin
Также стоит объявить переменные x и y как ( int: x, y; )
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
Создать книгу – это искусство. Над книгой трудится огромное число людей. Изготовление книги включает в себя множество технологических процессов, каждый из которых – воплощение ума, труда мастеров и достижений науки и техники. 1. набор текста 2. редактирование 3. форматирование и верстка страниц 4. изготовление форм (афсет), либо напрямую на печатную машину посредством ввода-вывода с компьютера (как на принтер) машины ротопринтерные тираж до 5000 экз. 5. печатание страниц на печатном станке 6. Брошурование и сшивание страниц (если типа бесцеллера то склеивание) 7. обрезание краев на гильятине (станок такой) 8. выход книги в свет.
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/db195.jpg)
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/0a7c0.jpg)
Где выражение (If x) выполняется, так как переменная x хранит значение. Условие (x>y) не выполняется, поэтому переходим к else и дальше идёт присваивание x и y значение равное 3.
ПОПРАВКА
Программа написана неверно, так как ветвления (if) должны быть после begin
Также стоит объявить переменные x и y как ( int: x, y; )