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

Заменить на единицы все элементы массива, значения которых больше 3 , если максимальный элемент массива имеет значение от 0 до 5

22.12.2009, 19:56. Просмотров 739. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить 2 задачи...

1) Если сумма значений элементов с четным индексом в массиве М(15) равна произведению первого и последнего элементов этого массива, то обнулить весь массив. В противном случае, заменить все элементы с положительными значениями на нули. Распечатать результаты с комментариями.

2) Дан массив Р(20). Заменить на единицы все элементы массива, значения которых больше 3 , если максимальный элемент массива имеет значение от 0 до 5, и заменить их на ноль в противном случае.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2009, 19:56
Ответы с готовыми решениями:

Заменить все отрицательные элементы массива на максимальный элемент массива
Дан одномерный массив из N элементов. Заменить все его отрицательные элементы...

Переменной S присвоить значение -1, если максимальный элемент массива А больше максимального элемента В
Заданы два массива А(4), B(6). Переменной S присвоить значение -1, если...

Все нулевые элементы заменить на максимальный элемент массива
Дан одномерный массив.Все нулевые элементы заменить на максимальный элемент...

Заменить все отрицательные элементы двумерного массива на максимальный элемент
Здравствуйте уважаемые знатоки. Хотелось бы получить помощь по отписанной ниже...

Заменить все отрицательные элементы двумерного массива на максимальный элемент
Написать программу, которая заменяет все отрицательные элементы двумерного...

1
Snoopy
1912 / 1071 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
22.12.2009, 20:10 2
Лучший ответ Сообщение было отмечено Kupullko как решение

Решение

писал здесь, будут ошибки пишите
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
33
34
35
uses crt;
const m=15;
var a:array[1..m] of integer;
    i,p,k,sum:integer;
begin
ClrScr;
Randomize;
 for i:=1 to m do
  begin
   a[i]:=random(20)-10;
   Write(a[i]:3);
  end;
 sum:=0;
 p:=1;
 for i:=1 to m do
   if i mod 2=0 then
    sum:=sum+a[i];
 p:=p*a[1]*a[m];
  for i:=1 to m do
   begin
    if sum=p then
     begin
      a[i]:=0;
     end
    else
     if a[i]>0 then
      a[i]:=0;
    end;
 Writeln;
 Writeln('P ',p);
 Writeln('Sum ',sum);
 for i:=1 to m do
  Write(a[i]:3);
 Readln;
end.
Добавлено через 5 минут
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
uses crt;
const m=20;
var a:array[1..m] of integer;
    i,p,k,sum,max:integer;
begin
ClrScr;
Randomize;
 for i:=1 to m do
  begin
   a[i]:=random(20)-10;
   Write(a[i]:3);
  end;
 max:=1;
  for i:=1 to m do
  if a[i]>max then
   max:=a[i];
 for i:=1 to m do
  begin
   if a[i]>3 then
    begin
     a[i]:=1;
    end
   else
    if (max>=0) and (max<=5) then
     a[i]:=0;
  end;
  Writeln;
 Writeln('Max ',max);
 for i:=1 to m do
  Write(a[i]:3);
 Readln;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2009, 20:10

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

Удалить все элементы массива, значения которых больше введенного числа
Удалить все элементы массива, значения которых больше введенного числа.

Элементы массива, больше 55, заменить на максимальный
Помогите пожайлуста с решением.:) Задайте массив из n элементов. Элементы,...


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

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

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