Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Murad92
0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 4
1

Контрольная

01.11.2010, 12:18. Просмотров 386. Ответов 6
Метки нет (Все метки)

У меня сейчас контрольная по информатике, а я в ней ноль полный. Если есть люди, которые могут мне помочь(в Паскале на тему массивы), то очень был бы признателен вам
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2010, 12:18
Ответы с готовыми решениями:

контрольная
помогите плиз!!!!!!срочно Дан массив случайных чисел из интервала от 0 до 20. Сосчитать в этом...

Контрольная в универе
Люди помогите плиз. нужен алгоритм и прога на паскале. Может кто сталкивался с таким. это...

контрольная работа
Пожалуйста, помогите с заданием((( плиз, очень срочно надо! заранее спасибо)))

Контрольная по Паскалю
Доброго всем времени суток! Помогите решить 5 задач по Паскалю - сестра меня достала, а я в...

Контрольная по WEB
Помогите пожалуйста. Создайте веб-страницу, на которой разместите однострочный редактор (<INPUT>)...

6
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
01.11.2010, 12:21 2
О таких вещах заранее договариваются, с указанием суммы прописью...
0
Murad92
0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 4
01.11.2010, 12:24  [ТС] 3
А ПОМОЧЬ не можете вы?? Ладно, извините.
0
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
01.11.2010, 12:25 4
Murad92, Так ты не стони, а вопросы выкладывай, кто-то и ответит...
0
Murad92
0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 4
01.11.2010, 12:36  [ТС] 5
Я и не стону. Задание- дан массив Х(15), ввод массива с клавиатуры. Все элементы массива, предшествующие максимальному уменьшить в 1,5 раза. Если он первый элемент массива, выдать соответствующее сообщение. Результаты распечатать.

Добавлено через 3 минуты
Блин забыл написать- еще найти максимальный элемент массива.
0
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
01.11.2010, 12:46 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
const n=15;
var x:array[1..n] of real;
    i,imx:byte;
begin
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  readln(x[i]);
 end;
clrscr;
writeln('Исходный масив:');
imx:=1;
for i:=1 to n do
 begin
  write(x[i]:0:2,' ');
  if x[i]>x[imx] then imx:=i;
 end;
writeln;
writeln('Максимальный элемент=',x[imx]:0:2,' его номер=',imx);
writeln;
if imx=1 then write('Максимальный элемет первый!')
else
 begin
  writeln('Элементы от 1 до ',imx-1,' уменьшены в 1.5 раза:');
  for i:=1 to n do
   begin
    if i in [1..imx-1] then x[i]:=x[i]/1.5;
    write(x[i]:0:2,' ');
   end;
 end;
readln
end.
1
Murad92
0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 4
01.11.2010, 13:23  [ТС] 7
Рuроrеv спасибо тебе большое ты помог мне хорошо я сегодня всю ночь не спал готовился к этой контрольной, кстати на этом форуме но все равно что то не то было. Не до конца понял.
0
01.11.2010, 13:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2010, 13:23

Контрольная работа
http://img8.imageshost.ru/imgs/100108/98649585cd/a47dd.jpg

Завтра контрольная
Составить текст программы обработки текстового файла: 1)содержащий процедуру создания нового...

Контрольная по Pascal
1. Выяснить,если ли в числе две одинаковые цифры стоящие рядом. 2. Вычеслить произведение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru