Практикум по решению задач на языке Pascal "Линейный поиск"

Задача 1. Задан одномерный массив из целых чисел. Числа массива задаются случайным образом. Найти сумму и произведение элементов массива.

Задача 2. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами.

Program proisvednechet;

Var a: array[1..100] of  integer;

      i, n, p: integer;

Begin

  Write (‘Сколько элементов? ’);  Readln (n);

  P:=1;  

  For i=1 to n do

       begin      

            a[i]:= Random(46)-19;

             writeln (a[i],’ ‘);

            if i mod 2 0 then P=P*a[i];

       end;

  Writeln(‘Произведение элементов с нечетными номерами:’, P);

End.

Задача 3. Дан массив из 10 элементов. Замените все четные элементы нулями.

Задача 4. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.

Program proisvedchetbolt;

Var a: array[1..100] of integer;

      i, n, p, t: integer;

Begin

  Write (‘Сколько элементов? ’);  Readln (n);

  P:=1;  

  For i=1 to n do

       begin      

            a[i]:= Random(104)-56;  writeln (a[i],’ ‘);

            if (i mod 2 = 0) and (a[i]t) then P=P*a[i];

       end;

  Writeln(‘Произведение элементов с четными номерами, превосходящие число t:’, P);

End.

Задача 1. Задан одномерный массив из целых чисел. Числа массива задаются случайным образом. Найти сумму и произведение элементов массива.

Задача 2. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами.

Задача 3. Дан массив из 10 элементов. Замените все четные элементы нулями.

Задача 4. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.

--------------------------------------------------------------------------------------------------

Задача 1. Задан одномерный массив из целых чисел. Числа массива задаются случайным образом. Найти сумму и произведение элементов массива.

Задача 2. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами.

Задача 3. Дан массив из 10 элементов. Замените все четные элементы нулями.

Задача 4. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.

Задача 1. Задан одномерный массив из целых чисел. Числа массива задаются случайным образом. Найти сумму и произведение элементов массива.

Задача 2. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами.

Задача 3. Дан массив из 10 элементов. Замените все четные элементы нулями.

Задача 4. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.

10. В заданном одномерном  массиве, состоящем из n  целых чисел, подсчитать количество нулей.

Program  kolv0;

Var a: array[1..100] of integer;

      i, n, k: integer;

Begin

  Write (‘n=’); Readln (n);

  For i:=1 to n do

    begin

       Write(‘a[‘,i,’]=’); readln (a[i]);

       if a[i]=0 then k:=k+1;

    end;

  Writeln(‘количество 0 равно  ’, k);

end.

11. В заданном одномерном  массиве, состоящем из n  целых чисел, подсчитать количество четных элементов.

Program  kolvсchet;

Var a: array[1..100] of integer;

      i, n, k: integer;

Begin

  Write (‘n=’); Readln (n);

  For i:=1 to n do

    begin

       Write(‘a[‘,i,’]=’); readln (a[i]);

       if  a[i] mod 2=0 then k:=k+1;

    end;

  Writeln(‘количество четных элементов: ’, k);

end.

12. Найдите среднее арифметическое элементов массива, состоящего из 10 чисел, которые превышают по величине число С. Элементы вводятся с клавиатуры.

Program sredarifmet;

Var a: array[1..10] of  real; i, k: integer; C, S, sred: real;

Begin

  For i:=1 to 10 do

    Begin  write(‘a[‘,i,’]=’);     readln (a[i]); end;

  write(‘введите С: ‘); readln (C );

  For i:=1 to 10 do

    Begin  If a[i]C then begin      S=S+a[i];     K=K+1;   end;

     end;    sred=S/k;

   Writeln(‘среднее арифметическое чисел, превосходящих ‘,C,’  равно  ‘,sred);

End.