Вывести на экран все элементы массива, кратные М

@andru6a · Регистрация: 12.01.2012

Задание в турбо паскале. Звучит следующим образом:
Вывести на экран все элементы массива, кратные М.

И еще одна задача:
Разработать программу по своему варианту находящую мах цифру строки.

Заранее при много благодарен))

@SuPeR XaKer · 12.01.2012, 20:24

andru6a, ну ни как не можете правила форму прочесть?ну ни как....

Комментарий модератора

Называйте темы информативно.

@andru6a · 12.01.2012, 22:16 **[ТС]**

Дико извиняюсь. Но дело жизни и смерти

@Xmajs · 12.01.2012, 22:55

Сообщение от andru6a

Вывести на экран все элементы массива, кратные М.

Pascal

var a:array[1..100] of integer;
    i,k: integer;
    n: integer;
    m: integer;
begin
  randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
  writeln('Введите число M:');
  readln(m);
  for i:=1 to n do a[i]:=random(101)-25;
  writeln('Исходный массив: ');
  for i:=1 to n do write(a[i],' ');
  writeln;
  for i:=1 to n do 
    if a[i] mod m=0 then begin
      write(a[i],' ');
      inc(k);
  end;
  if k=0 then writeln('В массиве нет элементров кратных ',m);
end.

Добавлено через 9 минут

Сообщение от andru6a

Разработать программу по своему варианту находящую мах цифру строки.

Pascal

var
  s: string;
  i: integer;
  max: char;
 
begin
  writeln('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then
      if Ord(max) < ord(s[i]) then max := s[i];
  writeln('Максималная цифра строки: ', max)
end.

@andru6a · 12.01.2012, 23:04 **[ТС]**

БЛАГОДАРЮ

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@andru6a · 18.01.2012, 17:25 **[ТС]**

Вот еще две программы.
1ая...вывести из строки символы, у которых max и min в строке код.

2ая..вывести на экран символы, у которых код равен среднему арифметическому минимума и максимума кода строки.

@andru6a 0 / 0 / 0 Регистрация: 12.01.2012 Сообщений: 4
		1
	Вывести на экран все элементы массива, кратные М 12.01.2012, 20:16. Показов 1762. Ответов 5 Метки нет (Все метки) Задание в турбо паскале. Звучит следующим образом: Вывести на экран все элементы массива, кратные М. И еще одна задача: Разработать программу по своему варианту находящую мах цифру строки. Заранее при много благодарен)) 0

@andru6a 0 / 0 / 0 Регистрация: 12.01.2012 Сообщений: 4
	12.01.2012, 22:16 [ТС]	3
	Дико извиняюсь. Но дело жизни и смерти 0

@andru6a 0 / 0 / 0 Регистрация: 12.01.2012 Сообщений: 4
	18.01.2012, 17:25 [ТС]	6
	Вот еще две программы. 1ая...вывести из строки символы, у которых max и min в строке код. 2ая..вывести на экран символы, у которых код равен среднему арифметическому минимума и максимума кода строки. 0

Опции темы