1. Прочитать фрагмент программы, ответить на вопрос: «Что выполняет фрагмент программы» 1) var mass: array[1..5] of integer;

2)…
For i:=1 to 5 do
mass[i]:=random(100);
…
3)…
For i:=1 to 5 do
Writeln(mass[i]);
…

2. Прочитать фрагмент программы, ответить на вопросы:
Const mass: array[1..5] of integer=(0,1,2,3,4,5);
…
Р:=1;
For i:=3 to 5 do
Р:=р*mass[i];
Write(p);
…
Вопросы:
1. Как описан массив?
2. Сколько у него элементов?
3. Как меняется индекс?
4. Можно ли обратиться к mass[-5]?
5. Какой индекс имеет 3-й по порядку элемент массива?
6. Какой порядковый номер имеет элемент mass[5]?
7. Что выполняет фрагмент программы?
8. Что будет выведено на экран?
9. Что нужно изменить в программе, чтобы выводился на экран промежуточный результат?
10. Что нужно изменить в программе, чтобы она вычисляла произведение всех элементов массива?

3.Прочитать фрагмент программы, ответить на вопросы:
Const mass: array[1..5] of integer=(0,1,-2,3,4,-5);
…
k:=1;
For i:=1 to 5 do
If mass[i]<0 then k:=k+1;
Write(p);

1)
uses crt;
var a:array [1..15] of integer;
     i,k:integer;
begin
  randomize;
  k:=0;
  for i:=1 to 15 do
    begin
      a[i]:=random(10)-3;
      if (a[i]<0) then inc(k);
      write (a[i],' ');
    end;
  writeln;
  writeln (k/15*100,'%');
end.

2)
uses crt;
var a:array [1..20] of integer;
     i:integer;
begin
  randomize;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  for i:=1 to 20 do
    if (a[i] mod 10 = 3) then write (a[i],' ');
end.

3)
uses crt;
var a:array [1..20] of integer;
     i:integer;
     k:longint;
begin
  randomize;
  k:=1;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
      if (a[i]>9) and (a[i]<100) then k:=k*a[i];
    end;
  writeln;
  writeln (k);
end.

4)
uses crt;
var a:array [1..30] of integer;
     i:integer;
     flag:boolean;
begin
  randomize;
  for i:=1 to 30 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  flag:=true;
  for i:=1 to 29 do
    if (a[i]>a[i+1]) then
     begin
       flag:=false;
       break;
     end;
  writeln (flag);
end.

using System;

namespace ConsoleApp5

{

   class Program

   {

       static void Main(string[] args)

       {

           bool f;

           double a,b,c, s, s1;

           a = double.Parse(Console.ReadLine());

           b = double.Parse(Console.ReadLine());

           c = double.Parse(Console.ReadLine());

           s = Math.Sqrt(((a + b + c) / 2) * (((a + b + c) / 2) - a) * (((a + b + c) / 2) - b) * (((a + b + c) / 2) - c));

           a = double.Parse(Console.ReadLine());

           b = double.Parse(Console.ReadLine());

           c = double.Parse(Console.ReadLine());

           s1= Math.Sqrt(((a + b + c) / 2) * (((a + b + c) / 2) - a) * (((a + b + c) / 2) - b) * (((a + b + c) / 2) - c));

           if (s == s1)

               f = true;

           else

               f = false;

           Console.WriteLine(f);

           Console.ReadKey();

       }

   }

}