Четверг, 24.08.2017, 09:40
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » одномерный массив
одномерный массив
YuraДата: Четверг, 13.01.2011, 12:25 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Помогите пожалуйста составить программу и блок схему.

Дан массив X(20). Заменить максимальный элемент (или все, если их несколько) на 0.

 
NailДата: Четверг, 13.01.2011, 13:26 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
за 20 решу biggrin
Mail: shakurovnail@mail.ru
Icq: 6688101
Skype: shakurovnail
 
YuraДата: Четверг, 13.01.2011, 13:33 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Друг выручи, ведь 20 тебе ничего не даст, а мне эта программа даст зачёт=)))
 
NailДата: Четверг, 13.01.2011, 14:45 | Сообщение # 4
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
хехе...

Добавлено (13.01.2011, 14:43)
---------------------------------------------
(или все, если их несколько) меня напрегает эта строчка

Добавлено (13.01.2011, 14:45)
---------------------------------------------
заполнять массив рандомно или вводить будешь?

 
YuraДата: Четверг, 13.01.2011, 14:56 | Сообщение # 5
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Рандом))
 
NailДата: Четверг, 13.01.2011, 14:58 | Сообщение # 6
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
ОК

Добавлено (13.01.2011, 14:58)
---------------------------------------------
ЗА 20 СДЕЛАЮ НА СЧЕТ

 
YuraДата: Четверг, 13.01.2011, 15:00 | Сообщение # 7
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Basic, Pascal
 
NailДата: Пятница, 14.01.2011, 14:48 | Сообщение # 8
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Если я правильно понял задание то так..

Code
program massiv_20;
var
a: Array[1..20] of Integer;
i,max,index_max: Integer;
begin
Write('| Ìàññèâ 1 |');
for i := 1 to 20 do
begin
a[i] := Random(50);
Write(' ',a[i],' |');
end;

max := a[i];

  for i := 1 to 20 do
   begin
     if  max < a[i] then
     begin
     max := a[i];
      index_max := i;
     end;
         end;
          
     WriteLn(' ');
     a[index_max] := 0;
      Write('| Ìàññèâ 2 |');
       
     for i := 1 to 20 do
      begin
      Write(' ',a[i],' |');
       end;

end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » одномерный массив
Страница 1 из 11
Поиск:

Copyright MyCorp © 2017