М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
haydsaaronp014m7
haydsaaronp014m7
17.02.2023 09:49 •  Информатика

Какая ошибка в программе паскальАВС? УСЛОВИЕ: В одномерном массиве найти среднее арифметическое всех элементов массива

program _1;

var i, n: integer; S, O, k: real; a: array [1..50] of real;

begin

writeln ('Ввод n');

readln(n);

for i:= 1 to n do

begin

writeln ('Ввод a [',i,']');

readln (a[i]);

S:=0;

k:=0;

S:= S+a[i];

k:=k+1;

end;

O:= S/k;

writeln ('O=',O);

end.

👇
Ответ:
Алиса0202
Алиса0202
17.02.2023

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.

4,7(42 оценок)
Открыть все ответы
Ответ:
альбина350
альбина350
17.02.2023

Объяснение:

Компью́терная гра́фика — область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента как для создания и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира, с целью дальнейшей её обработки и хранения.

Применяется компьютерная графика во многих областях, так как цифровая графика, лазерная графика, цифровая живопись и фотография, практично всегда ее используют в фильмах, а также при создании компьютерных игр.

4,5(35 оценок)
Ответ:
larasargsian
larasargsian
17.02.2023

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];

4,7(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ