Сәйкестендір

Мазмұн

Бұл құралдар тобы ғылыми еңбектер негізделген әдебиеттер тізімін басқаруға, тінтуірдің көмегімен қандай да бір ақпарат көзіне сілтеме қоюға мүмкіндік береді

Сілтемелер және әдебиеттер тізімі

Бұл элементтер құжатқа мазмұн қосуға мүмкіндік береді.

Атаулар

Мәтінде сурет немесе кесте атауларын сілтеме жасайтын басқару элементтерінің тобы.

Гиперсілтемеге көмекші сөз қою ретін анықтаңыз.

Көмекші сөз түймесін шерту

Қою – Гиперсілтеме командасын орындау

Көмекші сөз мәтінін енгізу

Жеке құқық -

Мүліктік құқық -

Плагиат -

Ұғымдарды қолдану жағдайларына мысал келтіріңіз.

Авторлық құқық

Плагиат

​

PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (n<100): ');readln(n);
 var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=0 then
   if a[i]>max then max:=a[i]
   else
    if a[i]<min then min:=a[i];
 end;
 writeln;
 writeln('Максимальный - ',max);
 writeln('Минимальный - ',min);
 readln;
end.

Пример:

Введите размер массива (n<100): 10
15 32 90 97 35 62 52 37 5 63 
Максимальный - 97
Минимальный - 37

Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных

begin // начало программы 
write ('y = x*b ');  
read(x,b);      // ввод переменной x,b

if x > 0   // проверка, х больше от 0?
then   
y := y * b       // если да, то исполняется это
else               
if x = 0 then   //если нет, то это(тут опять же проверка, х равно 0?)
y := 0             // если да то "y" присваивается 0
else
y := abs(x);    // если нет то "y" присваивается значение модуль "х"

writeln ('y = ', y);  // выводятся значения,

end. // завершение программы