Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 27.04.2016
Сообщений: 3
1

Заменить все элементы массива, которые делятся без остатка на «3», на единицы (9);

06.11.2016, 18:59. Показов 1780. Ответов 3
Метки нет (Все метки)

Что не так делаю?
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
uses crt;
const nmax=9;
var a:array[1..nmax] of integer;
    n,i:integer;
begin
radomize;
repeat
write('Введите элементы массива,в том числе ноли:');
for i:=1 to n do
begin 
  write ('a[',i,']=');
  read(a[i]);
  end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Замена всех элементов массива, которые делятся без остатка на 3:');
for i:=1 to n do
 begin
  if a[i]<>0 then a[i]:=a[i]/3;
  write(a[i],' ');
 end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2016, 18:59
Ответы с готовыми решениями:

Вывести все элементы списка, которые делятся на 2 без остатка
я ещё новичок и не совсем понимаю как всё это делается. Дан список. Кол-во элементов вводится с...

Программа на паскале - Найдите сумму натуральных чисел от 1 до 1000, которые делятся без остатка на 7 и не делятся без остатка на 13
Требовалось решить задачу по математике: Найдите сумму натуральных чисел от 1 до 1000, которые...

Все элементы массива которые не делятся на 5, но делятся на 7 заменить нулями и вывести весь массив
Где ошибка? #include&lt;stdio.h&gt; #include&lt;math.h&gt; #define N 5 int main() { int i, a, k=0;...

Посчитать произведение чисел из 5 заданных, которые делятся без остатка на 3 и не делятся без остатка на 5
Написать программу, которая введет 5 значений и посчитает произведение чисел, которые делятся без...

3
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.11.2016, 19:12 2
Pascal
1
2
3
4
5
for i:=1 to n do
 begin
  if a[i] mod 3=0 then a[i]:=1;
  write(a[i],' ');
 end;
0
0 / 0 / 0
Регистрация: 27.04.2016
Сообщений: 3
06.11.2016, 21:11  [ТС] 3
Вылетает ошибка Program1.pas(25) : Встречен конец файла, а ожидался оператор
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.11.2016, 21:42 4
Лучший ответ Сообщение было отмечено cometomommy как решение

Решение

Какого нафиг файла? Вы сначала отремонтируйте свой кривой код.
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 nmax=9;
var a:array[1..nmax] of integer;
    n,i:integer;
begin
randomize;
repeat
write('Размер массива от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том числе кратные 3');
for i:=1 to n do
 begin
  write ('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Замена всех элементов массива, которые делятся без остатка на 3:');
for i:=1 to n do
 begin
  if a[i] mod 3=0 then a[i]:=1;
  write(a[i],' ');
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2016, 21:42

Одномерный массив.Вывести те элементы, которые делятся на 2 без остатка
Дан одномерный массив. Вывести те элементы, которые делятся на 2 без остатка. Но решить надо...

Определить все числа, меньшие N, которые делятся без остатка на M
Даны натуральные числа N и M (M&lt;N). Используя только элементарные арифметические операции (+, -, *,...

Найдите все числа от 1 до 200, которые делятся без остатка на 3 и 9
Не разбираюсь в этом языке, а нужно написать. Язык СИ Найдите все числа от 1 до 200, которые...

Дан одномерный массив. Вывести те элементы, которые делятся на 2 без остатка
Дан одномерный массив. Вывести те элементы, которые делятся на 2 без остатка. Но решить надо...

Функция, выводящая все числа не превышающие N, которые делятся без остатка на все свои цифры
Реализовать функцию, которая выводит все числа не превышающие заданного числа N, которые делятся...

Найти 6 числа из массива которые делятся без остатка?
Найти 6 числа из массива которые делятся без остатка? Помогите решить программу ребята ! Срочно...


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

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

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