1.в произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и положитльных элементов. 2. сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). обнулите значения всех элементов с нечетными индексами. выведите значения одномерного массива в строку через пробел.
300
500
Ответы на вопрос:
Первая программа: 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.
Популярно: Информатика
-
Foxy415220.01.2020 20:32
-
Марина19r24.02.2022 05:53
-
Helpmeplz12317.02.2020 06:40
-
strelkina4207.12.2021 23:58
-
lokosso13.01.2022 03:48
-
olesyakondakova14.07.2021 21:06
-
vikaplmplmpl31.08.2021 12:11
-
ЮляФранк210521.05.2022 08:26
-
dalikha0624.04.2022 09:22
-
kristinavasina119.01.2020 09:06