Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Волово 48
0 / 0 / 0
Регистрация: 20.10.2012
Сообщений: 12
#1

В массиве заменить числа кратные 9 уменьшить в 18 раз и округлить до целых

31.10.2012, 17:25. Просмотров 889. Ответов 2
Метки нет (Все метки)

В массиве заменить числа кратные 9 уменьшить в 18 раз и округлить до целых (Элементов массива:5. Массив вводится с клавиатуры).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2012, 17:25
Ответы с готовыми решениями:

Найти в двумерном массиве целых чисел В(5, 10) все числа, кратные 11
Найти в двумерном массиве целых чисел В(5, 10) все числа, кратные 11. Если...

Заменить в массиве числа, кратные 3, их квадратами и определить их количество
Заменить в массиве числа, кратные 3, их квадратами и определить их количество....

Заменить в массиве числа, кратные 3 на нули и преобразованный массив записать в новый файл
Помогите, пожалуйста, написать программу. В первой строке текстового файла...

В массиве C(L)элементы, кратные трем, заменить на «три».
В массиве C(L)элементы, кратные трем, заменить на «три». Бинарный поиск

В массиве элементы, кратные трем, заменить на «три»
Элементы заданного массива B(N) перепишите в новый массив A(N) в обратном...

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,687
Записей в блоге: 1
31.10.2012, 17:37 #2
Лучший ответ Сообщение было отмечено Волово 48 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var A:array[1..100] of integer;
    i,n:byte;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный');
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    For i:=1 to n do
     if A[i] mod 9 = 0 then A[i]:=round(A[i]/18);
    writeln('Преобразованный');
    For i:=1 to n do
     write(A[i]:4);
    readln;
End.
1
VBmaster98
19 / 18 / 7
Регистрация: 30.09.2012
Сообщений: 35
31.10.2012, 18:54 #3
Изменили условие...Нехорошо...

Добавлено через 6 минут
У вас две темы одинаковые (почти) не туда зашел)

Добавлено через 18 минут
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
var k ,s,o,st,d: integer;
mas1 : array [0..5] of integer;{размеренность по вашему усмотрению}
 
begin
      begin
       WriteLn('VVedite koltvo elementov');
     ReadLn(d);
     while o <> d do
        begin
     o := o + 1;
 
     WriteLn('Egio znachenie');
     readLn(mas1[o]);
     if mas1[o] mod 9 = 0 then mas1[o]:=round(mas1[o]/18);
     writeLn(mas1[o]);
     ReadLn;
         end;
     end;
 
     begin
     writeLn('Vivodim kol-tvo pervix elementov');
     ReadLn(s);
     o := 1;
     For o := 1 to s do
     writeLn('OTVET',mas1[o]);
     end;
     ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2012, 18:54

Дан массив целых чисел. Все элементы, кратные числу 10 заменить нулём
Задача №1 Дан массив из 20-ти элементов. Сформировать два массива размером 10,...

В числовом массиве из 10 элементов каждый элемент с четным номером уменьшить в 5 раз
в числовом массиве (введенном с клавиатуры) из 10 элементов каждый элемент с...

Заменить в массиве на нули, все элементы кратные трем
Всем доброго вечера! Буду благодарен, если поможете с программкой на паскале. ...


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

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

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