Дан одномерный массив целых чисел, состоящий из 20 ячеек, заполненный случайными числами из промежутка [-100,90]. Увеличить каждый элемент массива на 100. Напишите программу со всеми объяснениями пожалуйста!!
Ответы
Ответ дал:
0
Написал две программки на случай, если там все таки массив определен:
1)
var
a:array[1..20]of integer;
i,n,c:integer;
begin
for i:=1 to 20 do
begin
read(a[i]);
a[i]:=a[i]+100;
end;
for i:=1 to 20 do
write(a[i],' ');
end.
2)
var
a:array[1..20]of integer;
i,n,c:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(191)-100;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
write(a[i]+100,' ');
end.
1)
var
a:array[1..20]of integer;
i,n,c:integer;
begin
for i:=1 to 20 do
begin
read(a[i]);
a[i]:=a[i]+100;
end;
for i:=1 to 20 do
write(a[i],' ');
end.
2)
var
a:array[1..20]of integer;
i,n,c:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(191)-100;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
write(a[i]+100,' ');
end.
Ответ дал:
0
http://znanija.com/task/15985962 помогите ещё с этой пожалуйста!!
Ответ дал:
0
Так уже ж решили ее
Ответ дал:
0
Там не на паскале , плюс там ошибка!
Вас заинтересует
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад