Написать программу которая даст таблицу q5*5. каждый эелемент таблицы случайное число из отрезка [-30,+30]. вычислить сумму все отрицательных и сумму положительных элементов.
222
458
Ответы на вопрос:
var a,b,i,j,p,o: integer; z: real; m: array[0..31,0..31] of integer; beginrandomize; for i: =1 to 5 do for j: =1 to 5 do begin z: =random; b: =random(31); if z< 0.5 then m[i,j]: =b; if z> 0.5 then m[i,j]: =-b; end; for i: =1 to 5 do for j: =1 to 5 do begin if m[i,j]> 0 then p: =p+m[i,j]; if m[i,j]< 0 then o: =o+m[i,j]; end; write(p,' ',o); end.
мда. подумать над пришлось немного) но вот результат)
Получения-монитор,сканер,принтер,телефон передача-систем.блок,телефон,ноутбук,радио,телевизор. обработка-процесор,принтер,сканер,клавиатура,монитор исп-пк,ноутбук,телефон,процесор,и тд
Популярно: Информатика
-
AlyaMrr16.09.2022 19:40
-
dariadaria613.03.2022 11:30
-
Lungeluna07.01.2020 00:25
-
ррпарпоа119.11.2020 23:07
-
blurryfacegirl25.09.2022 05:52
-
ivanovaa75024.05.2023 22:05
-
HOHLOFF24.05.2021 20:58
-
Sagyndykkymbat25.04.2020 06:33
-
XXL1810.06.2022 18:22
-
Posrednikova0413.10.2022 05:24