1. на трех заводах «альфа», «плутон» и «рубин» иногда происходят аварии. разместить сведения о количестве - id279770020210627 от TvaylatHale123 27.06.2021 14:24

Question

Информатика: 1. на трех заводах «альфа», «плутон» и «рубин» иногда происходят аварии. разместить сведения о количестве аварий на рабочем листе. в диапазоне в7: d10 получить процент аварий, принимая за 100% общее число аварий за текущий год. например, строка для 2005 года должна выглядеть так, как в таблице (соблюдайте форматирование по образцу, используйте абсолютные либо смешанные ссылки):

TvaylatHale123 · Accepted Answer

1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
FOR J = 1 TO 5
A(I, J) = INT(RND * 10)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
PRINT , S
NEXT I

Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
FOR J = 1 TO 3
A(I, J) = INT(RND * 5)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
P = P * S
PRINT
NEXT I
PRINT
PRINT "P="; P

2
DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
A(I) = INT(RND * 20) - 10
PRINT A(I); " ";
IF A(I) > O THEN
S = S + A(I)
P = P * A(I)
N = N + 1
END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N

MOGZ ответил