Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 15.05.2011
Сообщений: 11
1

Две проги с масивами

15.05.2011, 21:33. Показов 970. Ответов 2
Метки нет (Все метки)

1) Вичислить суму положительных элементов и заменить ею елементами равными = 0
2)Создать масив " У " , из елементов " Х " которые розделить на значения минимального значения по модулю
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.05.2011, 21:33
Ответы с готовыми решениями:

две проги с циклами
Задание 1 (while ... do, repeat ... until). Найти произведение р=(1-(1/2))(1-(1/4))...(1-(1/2^n))....

Объединить две проги в одну
вот еще один интересный вопрос имеется два кода по графике вопрос: как сделать из них одну, чтобы...

Объединить две проги в одну
помогите объединить 2е проги в одну, чтоб решала 2умя разныыми методами, по примеру ...

Установил фотошоп, вместо проги установились другие проги (игры онлайн,браузеры,рекламы и т.д.)
Здравствуйте, уважаемые программисты или форумчане! Скачал и установил с одного сайта фотошоп, а во...

2
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
16.05.2011, 01:28 2
Лучший ответ Сообщение было отмечено Rikihers1 как решение

Решение

1 задача
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  crt;
var mas:array[1..1000] of Integer;
    n,i,sum:Integer;
begin
  clrscr;
  Randomize;
  Write('Vvedite razmernost massiva = ');
  Readln(n);
  sum:=0;
  Writeln('');
  Writeln('Sgenerirovannyj massiv');
  For i:=1 to n do begin
    mas[i]:=Random(10)-5;
    Writeln('mas[',i,']=',mas[i]);
    if (mas[i]>0) then sum:=sum+mas[i];
  end;
  Writeln('');
  Writeln('Poluchennyj massiv');
  For i:=1 to n do begin
    if (mas[i]=0) then
    mas[i]:=sum;
    Writeln('mas[',i,']=',mas[i]);
  end;
  Readln;
 
  { TODO -oUser -cConsole Main : Insert code here }
end.
Добавлено через 4 минуты
2 задача
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  crt;
var mas:array[1..1000] of Integer;
    tempmas:array[1..1000] of Real;
    n,i,min:Integer;
begin
clrscr;
  Randomize;
  Write('Vvedite razmernost massiva = ');
  Readln(n);
  min:=99999;
  Writeln('');
  Writeln('Sgenerirovannyj massiv');
  For i:=1 to n do begin
    mas[i]:=Random(100)-50;
    Writeln('x[',i,']=',mas[i]);
    if (Abs(mas[i])<min) then min:=Abs(mas[i]);
  end;
  Writeln('');
  Writeln('Poluchennyj massiv');
  For i:=1 to n do begin
    tempmas[i]:=mas[i]/min;
    Writeln('y[',i,']=',tempmas[i]:2:2);
  end;
  Readln;
 
  { TODO -oUser -cConsole Main : Insert code here }
end.
З.Ы. следующий раз пишите по-русски...
1
0 / 0 / 0
Регистрация: 15.05.2011
Сообщений: 11
16.05.2011, 15:38  [ТС] 3
Спасибо большое- очень выручил!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2011, 15:38

Как отследить из проги на Си завершение другой проги
Есть две программы, одна написана не мной и исходников нет (main), вторую я пытаюсь написать сам...

Робота з масивами
Засобами MATHCAD виконати такі дії над масивами випадкових чисел визначити для матриць X(5,5),...

Задачка с масивами
Прошу подать мне мысль, а практическую часть уже сам осуществлю, немного не пойму условие задания,...

Работа с масивами
Даны два массива A(10) and B(10), сформированные из случайных чисел. Сформируйте массив С(10),...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru