задачи на массивы - Форум
Пятница, 09.12.2016, 12:39
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи на массивы (решение в паскале)
задачи на массивы
oli4ckaДата: Вторник, 19.04.2011, 23:03 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите плиз решить задачки
1. расположите массив из 100 трехзначных положительных и отрицательных чисел в порядке убывания. Вывести исходный и получившийся массив.
2. Дан массив из 55 положительных и отрицательных чисел. Найти наибольший его элемент и его номер.
К завтраму бы надо .
 
Developer1Дата: Среда, 20.04.2011, 13:21 | Сообщение # 2
Подполковник
Группа: Заблокированные
Сообщений: 24
[ 0 ]
Статус: Offline
Пиши, выполню без проблем
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf
 
KOT_B_MEIIIKEДата: Среда, 20.04.2011, 14:29 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program mass1;
const n=10;
var m1,m2:array [1..n]of integer;
i,j,k:integer;
begin
for i:=1 to n do
begin
j:=random(1998)-999;
while (abs(j)<=100) do j:=random(1998)-999;
m1[i]:=j
end;

m2:=m1;
for j:=n downto 1 do
for i:=1 to j-1 do
if m2[i]<m2[i+1] then
begin
k:=m2[i];
m2[i]:=m2[i+1];
m2[i+1]:=k
end;

for j:=1 to n do write(m1[j]:5);
writeln;
for i:=1 to n do write(m2[i]:5);
writeln;
end.

Добавлено (20.04.2011, 14:29)
---------------------------------------------
program mass2;
const n=15;
var m1:array [1..n]of integer;
i,max,imax:integer;
begin
for i:=1 to n do m1[i]:=random(1998)-999;

max:=m1[1];imax:=1;
for i:=2 to n do
if m1[i]>max then begin max:=m1[i]; imax:=i end;

for i:=1 to n do write(m1[i]:5);
writeln;
writeln('максимальный элемент:', max:5,' на позиции ',imax:3);
writeln;
end.

 
oli4ckaДата: Среда, 20.04.2011, 19:34 | Сообщение # 4
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
СПАСИБО за помощь! smile
 
KOT_B_MEIIIKEДата: Четверг, 21.04.2011, 15:16 | Сообщение # 5
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Пожалуйста!
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи на массивы (решение в паскале)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016