Объявить целочисленный массив из 10 элементов. заполнить массив случайными числами в интервале от 0 до 50.вывести исходный массив на экран. вывести на экран инвертированный экран, в котором элементы будут поменяны местами: первый элемент меняется значением с последним, второй с предпоследним и т.д.

181

303

Посмотреть ответы 2

Ответы на вопрос:

АлинаТюлька

Информатика

4,8(27 оценок)

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin arrrandom(10,0,50).println.reverse.println end. тестовое решение: 22 40 13 37 41 20 14 44 47 38 38 47 44 14 20 41 37 13 40 22 вот такой у нас теперь стал

shoma22

Информатика

4,4(45 оценок)

program ii; var a, b, c, d: real; begin writeln ('введите коэффициенты а, в, с'); readln (a, b, c); if a=0 then writeln ('уравнение не квадратное') else begin d : = b*b - 4*a*c; a : = 2*a; if d< 0 then writeln ('действительных корней нет') else if d=0 then writeln ('корни равны: x1 = x2 = ', -b/a) else begin d : = sqrt(d); writeln ('x1 = ', (-b+d)/a); writeln ('x2 = ', (-b-d)/a); end; end; end.