Решить : рисунок размером 1000×1000 глубиной цвета 8бит. определить информационный объем. ответ дать в килобайтах.
226
252
Ответы на вопрос:
Const handsfree = false; var a: array[1..100] of real; i, n: integer; sum, product, harmonic: 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 abs(a[i]) < = 5 then sum : = sum + a[i]; writeln('sum = ', sum); end.
Популярно: Информатика
-
Dana190605.03.2021 03:27
-
leloneltt02.02.2023 19:11
-
sayhun08.08.2020 09:05
-
vinitskay7423.08.2021 13:47
-
Примари08.02.2021 23:44
-
Cvertuhi18.01.2020 01:09
-
KVASSok06.12.2022 13:49
-
kirillbatalov214.06.2022 16:22
-
0ananasik031.12.2022 15:30
-
nastya0904227.01.2020 19:27