Самостоятельная работа по теме
"адресная организация памяти пк"
вариант 1
покажите изменения, происходящие в памяти
компьютера в результате работы каждой
команды присваивания заданного фрагмента
, !
203
374
Ответы на вопрос:
Const handsfree = true; var a: array[1..100] of real; i, n: integer; sum: real; begin {ввод массива} if handsfree then n : = random(20) + 5 else begin write('n = '); readln(n); end; writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(100) - 50; write(a[i], ' '); end else readln(a[i]); end; writeln(); {подсчет суммы и произведения и агригатов} sum : = 0; for i : = 1 to n do if a[i] < 0 then {если нужен фильтр} sum : = sum + a[i]; writeln('sum = ', sum); end.
Популярно: Информатика
-
MaksimKim2005koreec29.11.2022 23:12
-
damirpro03.07.2022 21:49
-
GoldHorse23.06.2021 14:30
-
vodzinskiyaleksandr04.05.2022 18:56
-
Soulwax14.02.2021 22:41
-
Маргарита551518.06.2022 02:55
-
angelina43622.03.2021 17:37
-
tokmachevasvp01bjy10.10.2022 04:57
-
amankeldievan11.05.2023 11:59
-
kleyman20040407.05.2022 10:43