Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 11.12.2015, 19:28   #1 (permalink)
Andrey159+6
Новичок
 
Регистрация: 11.12.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Паскаль, помогите

Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO (случайным образом), а вывод – REPEAT...UNTIL (в скобках указана размерность массива):
заменить все элементы массива, которые больше 10, на 100 (12).
Andrey159+6 вне форума   Ответить с цитированием

Старый 11.12.2015, 19:28
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

решение проблемы должно упроститься, если прочитать содержимое схожих тем

Помогите решить. Паскаль АБС
Паскаль.Массивы.Помогите

Старый 11.12.2015, 21:41   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
По умолчанию

Код:
var  x:array[1..12] of integer;
     i,n:integer;
begin
     n:=12;
     Randomize;
      i:=1;
       While i<=n do
        begin
          x[i]:=Random(25)-10;
           Inc(i);
        end;
     i:=1;
      repeat
        if x[i]>10
         then x[i]:=100;
        Write(x[i]:4);
         Inc(i);
      until i>n;
     Writeln;
     Readln;
end.
Евгений вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 06:15.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.