profile
Опубликовано 5 лет назад по предмету Информатика от artyom62

1.В произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.

  1. Ответ
    Ответ дан oxxid
    Первая программа:
    program first;
    var mas:array[1..6] of integer; mass:array[1..3] of integer; a:integer;
    begin
    a:=1;
    while i<7
    randomize;
    random(a);
    if a<11 and a>6 then begin
    mas[i]:=a;
    a:=a+1;
    end;
    for i:=1 to 6 do begin
    if mas[i]<0 then mass[1]:=mass[1]+1;
    if mas[i]=0 then mass[2]:=mass[2]+1;
    if mas[i]>0 then mass[3]:=mass[3]+1;
    end;
    writeln('Положительных елементов в масиве',mass[3]);
    writeln('Елекантов равных нулю в масиве',mass[2]);
    writeln('Отрицательных елементов в масиве',mass[1]);
    end.