Информатика. Толстяков Р.Р - 93 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

93
FOR I = 0 TO 9
PRINT A(I)
NEXT I
Рассмотрим решение задачи с использованием массива.
Существует 100 случайных целых чисел в диапазоне от –50 до 50,
необходимо подсчитать:
а) сумму всех положительных чисел;
б) сумму всех отрицательных чисел;
в) арифметическое среднее значение элемента массива.
DIM A(100)
RANDOMIZE TIMER
FOR I = 0 TO 99
A(I) = (RND * 100 - 50) \ 1
NEXT I
REM счетчик для положительных чисел
POL = 0
REM счетчик для отрицательных чисел
OTR = 0
FOR I = 0 TO 99
IF A(I) > 0 THEN POL = POL + 1
IF A(I) < 0 THEN OTR = OTR + 1
NEXT I
PRINT "Сумма положительных =", POL
PRINT "Сумма отрицательных =", OTR
PRINT "Среднее значение элемента =", (POL +
OTR) / 100
2. Выполните практические задания.
1) Существует массив R, содержащий следующие значения эле-
ментов:
–2 2 5 6 0 –6 3 1
Выполните следующие действия:
R(2) = R(4) – 4
R(4) = R(2)*R(1)
R(0)=8
R(5) = R(0) – R(4)
Запишите новые значения элементов массива R. Проверьте себя,
выполнив эти действия на компьютере.
2) Заполните массив случайными числами в диапазоне:
0…10 –5…10 –20…–5 –30…0
3) Заполните массив случайными целыми числами в диапазоне:
10…20 –7…3 –12…–2 –31…0

Страницы