Помогите составить программы в Паскале пожалуйста : 1. Сформировать одномерный м??ссив из 9 вещественных чисел вводом с клавиатуры и выведите его на экран в обратном порядке. 2. Сформируйте одномерный массив из 20 целых чисел больших –10, но меньших 20 случайным образом и замените все его отрицательные элементы на противоположные по знаку.
?ссив из 9 вещественных чисел вводом с клавиатуры и выведите его на экран в обратном порядке. 2. Сформируйте одномерный массив из 20 целых чисел больших –10, но меньших 20 случайным образом и замените все его отрицательные элементы на противоположные по знаку.
1.Var m : array[1..9] of Real; i : Integer;Begin For i:=1 to 9 do Readln(m[i]); For i:=9 downto 1 do Write(m[i],); Writeln;end.2.Var m : array[1..20] of Integer; i : Integer;Begin Randomize; For i:=1 to 20 do Begin m[i]:=-9+Random(29); If m[i]<0 then m[i]:=-m[i]; end; For i:=1 to 20 do Write(m[i],); Writeln;end.
Также наши пользователи интересуются:
Помогите с задачей пожалуйста Сторона треугольника равная 6,3 см, на 20,8 см меньше ?Разбор по членом предложение на охоту
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите составить программы в Паскале пожалуйста : 1. Сформировать одномерный м?» от пользователя Люда Гавриленко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!