georgegradoff122
?>

Запишите на языке паскаль программу решения в некотором населённом пункте n домо.известно сколько людей проживает в каждом доме исходные данные (количнство жильцов) представить с линейной таблицы a, содержашей n элементов a (1)-количество жильцов дома 1 a (2)-количество жильцов дома (n)-количество жильцов дома n в обшем случае a (i)-количество жильцов в доме i, где i принимает все значения от 1 до (i=1, n) результат работы обозначить через s считайте количество жильцов случяйным числом из диапозона 50 до 200 а=30

Информатика

Ответы

elenaperemena8
Program a1;
var a:array[1..1000]of integer; i,n,s:integer;
begin
write('n: '); readln(n); s:=0;
for i:=1 to n do begin write('a[',i,']: '); read(a[i]) end;
for i:=1 to n do s:=s+a[i]; writeln('s=',s); readln; readln
end.
PetrovDrozdov1785

Объяснение:

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

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

Liliya-buc

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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запишите на языке паскаль программу решения в некотором населённом пункте n домо.известно сколько людей проживает в каждом доме исходные данные (количнство жильцов) представить с линейной таблицы a, содержашей n элементов a (1)-количество жильцов дома 1 a (2)-количество жильцов дома (n)-количество жильцов дома n в обшем случае a (i)-количество жильцов в доме i, где i принимает все значения от 1 до (i=1, n) результат работы обозначить через s считайте количество жильцов случяйным числом из диапозона 50 до 200 а=30
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

info292
Pavlov447
lazu8375
Svetlana395
Titeeva-Vladimirovich283
СергейНиколаевич
filimon211
info-mosbalkon
fta1309
Titeeva-Vladimirovich283
elmira070485
Smirnovav1982422
inikonovich
zapros
aprelevka