Объяснение:
Компью́терная гра́фика — область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента как для создания и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира, с целью дальнейшей её обработки и хранения.
Применяется компьютерная графика во многих областях, так как цифровая графика, лазерная графика, цифровая живопись и фотография, практично всегда ее используют в фильмах, а также при создании компьютерных игр.
program z1;
var a:array [1..10] of integer;
i,sp,so:integer;
begin
randomize;
sp:=0;
so:=0;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(41)-20;
if a[i] > 0 then sp:=sp+a[i]
else so:=so+a[i];
write(a[i],' ')
end;
writeln;
writeln('Сумма положительных элементов: ',sp);
writeln('Сумма отрицательных элементов: ',so)
end.
Объяснение:
Задаём элементы массива через random
Если элемент больше 0, то считаем сумму положительных элементов, в противном случае считаем сумму отрицательных элементов (0 на сумму не влияют)
Выводим значение элемента на экран
Выводим суммы
Если 0 очень важны, то меняем строки:
if a[i] > 0 then sp:=sp+a[i]
else so:=so+a[i];
на:
if a[i] > 0 then sp:=sp+a[i];
if a[i] < 0 then so:=so+a[i];
Поделитесь своими знаниями, ответьте на вопрос:
Какая ошибка в программе паскальАВС? УСЛОВИЕ: В одномерном массиве найти среднее арифметическое всех элементов массиваprogram _1;var i, n: integer; S, O, k: real; a: array [1..50] of real;beginwriteln ('Ввод n');readln(n);for i:= 1 to n dobeginwriteln ('Ввод a [', i, ']');readln (a[i]);S:=0;k:=0;S:= S+a[i];k:=k+1;end;O:= S/k;writeln ('O=', O);end.
program Poz;
var a, b, c, i: integer;
begin
writeln('Введите 50 чисел.');
for i:=0 to 49 do
begin
readln(a);
if a>0 then
b+=1
else
c+=1
end;
writeln('Количество положительных чисел = ', b, ' ', 'Количество отрицательных чисел = ', c)
end.