Помогите пожалуйста!!!!Составить программу на Паскале. Ввести 10 целых случайных чисел (в
Помогите пожалуйста!!!!
Составить программку на Паскале. Ввести 10 целых случайных чисел (в интервале от -10 до 10). Вывести начальный массив. Отыскать и вывести: 1) малый элемент и его индекс; 2) сумму всех частей массива; 3) количество отрицательных частей. К каждому элементу массива прибавить 1, вывести получившийся массив. Подсказка: 1)random(10)-10 2) положительные: gt;0 неположительные: lt;=0 отрицательные: lt;0 неотрицательные:gt;=0
1 ответ
Элина Василишина
Program gt;
var a:array[1..10]of integer;
i,min,l,s,k:integer;
begin
randomize;
s:=0;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
s:=s+a[i];
if(a[i]lt;0)then k:=k+1;
end;
min:=a[1];l:=1;
for i:=2 to 10 do
if(a[i]lt;=min)then begin
min:=a[i];
l:=i;
end;
writeln;
writeln('сумма элементов массива=',s);
writeln('кол-во отрицательных частей массива=',k);
writeln('малый элемент массива=',min,' его индекс=',l);
for i:=1 to 10 do
begin
a[i]:=a[i]+1;
write(a[i],' ');
end;
end.
var a:array[1..10]of integer;
i,min,l,s,k:integer;
begin
randomize;
s:=0;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
s:=s+a[i];
if(a[i]lt;0)then k:=k+1;
end;
min:=a[1];l:=1;
for i:=2 to 10 do
if(a[i]lt;=min)then begin
min:=a[i];
l:=i;
end;
writeln;
writeln('сумма элементов массива=',s);
writeln('кол-во отрицательных частей массива=',k);
writeln('малый элемент массива=',min,' его индекс=',l);
for i:=1 to 10 do
begin
a[i]:=a[i]+1;
write(a[i],' ');
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
Облако тегов