|
Вопрос # 4 951/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Помогите ,пожалуйста,решить программы с массивами в турбо паскале.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задала: wow4545 (статус: Посетитель)
Вопрос отправлен: 23 января 2011, 23:44
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 24 января 2011, 02:29; участников в обсуждении: 1.
23 января 2011, 23:54: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.
|
DeadMoon (статус: Посетитель), 24 января 2011, 02:11 [#1]:
wow4545: так, набросочек
program mass;
uses crt;
const
n = 9;
var
i: integer;
a: array[1..n] of integer;
begin
clrscr;
i := 1;
repeat
a[i] := i;
a[i+1] := sqr(a[i]);
a[i+2] := a[i+1] mod (i+2);
i := i + 3;
until i > n;
for i := 1 to n do
write(a[i],' ');
readln;
end.
|
|
|
DeadMoon (статус: Посетитель), 24 января 2011, 02:29 [#2]:
wow4545: туда же
program mass2;
uses crt;
const
n = 15;
var
i, s1, s2: integer;
a, b: array[1..n] of integer;
begin
clrscr;
randomize;
write('Исходный массив = ');
for i := 1 to n do
begin
a[i] := random(10);
write(a[i],' ');
end;
writeln;
write('Новый массив = ');
for i := 1 to n do
begin
b[i] := sqr(a[i]) - a[i];
write(b[i],' ');
end;
writeln;
write('Разность сумм элементов исходного и нового массива = ');
s1 := 0;
s2 := 0;
for i := 1 to n do
begin
s1 := s1 + a[i];
s2 := s2 + b[i];
end;
writeln(s1 - s2);
readln;
end.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
