0 / 0 / 0
Регистрация: 13.01.2019
Сообщений: 1
1

Оптимизация проги

13.01.2019, 16:39. Показов 352. Ответов 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
program urve;
 const n=20;
 var
  a: array[0..n-1] of integer;
  i,j,k,m: integer;
begin
 randomize;
 j{минимальный четн/нечетн}:=maxint;
 k{четные}:=0;
 m{нечетные}:=0;
 for i:= 1 to n-1 do
  a[i]:= random(10001);
 for i:= 1 to n-1 do
  if a[i] mod 2=0 then 
   k:= k+1
   else 
   m:=m+1;
 if k<=m then  
  for i:= 1 to n-1 do
   if (a[i] mod 2=0) and (a[i]< j) then 
    j:= a[i];
 if k>m then
  for i:= 1 to n-1 do
   if (a[i] mod 2=1) and (a[i] < j) then
    j:=a[i];
 
 for i:= 1 to n-1 do 
  write(a[i], ' ');
 writeln;
 write(j)
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2019, 16:39
Ответы с готовыми решениями:

Проги
Ребята помогите решить две задачки я уже мозги сломал, вот условия задач: 1. Даны натуральное n,...

Конец проги
И так снова прошу у вас помощи нужно сделать так чтобы после выполнения программы в ответе...

Редакция проги
Вот дана прога. На процедуры. Нужно сделать в матрицах замену первой строки на последнюю. Тоесть...

Текст проги
Ребят, подскажите в чём ошибка: Квадраты некоторых трехзначных чисел оканчиваются тремя цифрами,...

1
1835 / 1029 / 420
Регистрация: 07.04.2017
Сообщений: 3,923
13.01.2019, 17:26 2
Цитата Сообщение от feddoa Посмотреть сообщение
array[0..n-1]
Для начала замените массив на динамический. Это больше всего даст.

Добавлено через 39 секунд
А после этого - объясните чего вы добиваетесь, с вашего кода не очень понятно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2019, 17:26

Не компелирует проги
Слушайте други мои, как вы думаете что за фигня у меня с паскалем: короче тема такая я пушу себе...

Напишите 2 проги с циклами
82. Дано действительное число x. Вычислить (x-2)(x-4)(x-8)... (x-64) -------------------------....

2 проги с массивами, 1 график.
1. Дан двумерный массив Y. Определить имеется ли в массиве элементы со значениями, содержащими...

Две проги с масивами
1) Вичислить суму положительных элементов и заменить ею елементами равными = 0 2)Создать масив &quot; У...

Строки.2 небольших проги.
Добрый день.прошу помочь мне с 2мя прогами: 1.из 15 символов и вывода на экран строки &quot;да&quot; если...

Программисты объясните проги
Нужно для отчета!!! Пожалуйста...... Заранее спосибо! (1) program D__Z; uses crt; var ...


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

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

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