Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Goryn
0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 21
#1

Вывести массив, раскрасив в нем красным цветом первый кратный 5 элемент - Turbo Pascal

26.04.2015, 14:15. Просмотров 307. Ответов 1
Метки нет (Все метки)

Задание 7. Выведите на экран одномерный массив. Раскрасив в нем красным цветом первый кратный 5 элемент.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2015, 14:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести массив, раскрасив в нем красным цветом первый кратный 5 элемент (Turbo Pascal):

Вывести на экран одномерный массив, раскрасив в нем синим цветом первый кратный 5 элемент
Вывести на экран одномерный массив, раскрасив в нем синим цветом первый кратный...

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

Вывести на экран массив, раскрасив красным цветом элементы, расположенные между первым четным и последним четным элементом
5)Заполнить одномерный массив из 15 элементов случайными целыми числами....

Раскрасить в массиве при выводе красным цветом первый четный элемент
Ввести двумерный массив произвольной размерности, раскрасить в нем при выводе...

Вывести на экран массив, раскрасив розовым цветом заданные элементы
Заполнить одномерный массив из 15 элементов целыми числами. Вывести на экран...

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2844 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
26.04.2015, 20:30 #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
uses
  crt;
const
  n=10;
var
  a:array[1..n] of integer;
  i:integer;
  z:boolean;
begin
  randomize; 
  z:=true;
  for i:=1 to n do
    begin
      a[i]:=random(n)+1;
      if (a[i] mod 5 = 0) and z then
        begin
          TextColor(blue);
          write(a[i]:3);
          z:=false;
        end
      else
        begin
          textColor(white);
          write(a[i]:3);
        end;
    end;
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2015, 20:30
Привет! Вот еще темы с решениями:

Поменяйте местами последний элемент массива, кратный В и первый элемент кратный С
Создайте одномерный массив, поменяйте местами последний элемент кратный В и...

Ввести двумерный массив произвольной размерности, найти первый кратный 5 элемент каждой строки массива
Тема:Двумерные числовые массивы. 1.Ввести двумерный массив произвольной...

Заменить первый элемент массива, кратный 5, нулем
заменить первый элемент массива кратный 5 нулем

Заменить первый элемент массива, кратный 5, нулём
1)Заменить первый элемент массива,кратный 5,нулём. 2)Заменить элементы массива...


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

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

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