Хей, хелп, сомбади одномерный массив из 10 элементов заполнить случайным образом числами от -5 до 5. заменить все отрицательные элементы массива 0, а положительные увеличить на 2. вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Pascalabc.net var     i: integer;     a: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do   begin   a[i]: =random(-5,5);   write(a[i]: 4);   end; for i: =1 to 10 do   if a[i]> 0 then a[i]: =a[i]+2       else a[i]: =0; writeln; writeln('преобразованный массив: ');   for i: =1 to 10 do   write(a[i]: 4); end.

Var a,b: array [0..10] of longint; q: longint; begin for q: =1 to 10 do begin a[q]: =random(11)-5; if a[q]> 0 then b[q]: =a[q]+2; write(a[q],' '); end; writeln(); for q: =1 to 10 do write(b[q],' '); end.

ответ:

var a, b, c: integer;   //инициализация переменных (длин отрезков)

begin   //начало программы (тело программы)

    write (' длины сторон: ');   //вывод сообщения в консоль

    readln (a,b,c);   //организация ввода (длин отрезков)

    if (a < = b+c) and (b < = a+c) and (c < = a+b) then   //в условии if проверяется, что каждая из сторон меньше либо равна сумме других. если хотя бы одна будет больше, то все логическое выражение вернет ложь (false). в таком случае сработает ветка else.

        writeln ('треугольник существует.')

    else

        writeln ('треугольник не существует.');

readln(); //инициализация закрытия по нажатию на кнопку

end. //конец программы

объяснение:

//попробуйте мой вариант:

program chislo;

var n, k, i, raz: integer;

begin

    write('сколько чисел нужно сгенерировать: ');

    readln(n);

    write('число которое нужно посчитать (k): ');

    readln(k);

    for i: =1 to n do

        if random(0,100) = k then

            raz: =raz+1;

    writeln( 'из ', n, ' cгенирировандных чисел число ', k, ' встретилось ', raz, ' раз(а)');

end.