Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 31.03.2015, 21:00   #1
Просто человек
Пользователь
 
Регистрация: 16.02.2015
Сообщений: 13
Восклицание

задача 1 (код для примера если не сложно)

что не правильно?
Код:
Program desyt;
var a: array [1..10] of integer;
    c, n: integer;
begin
    writeln('элементы массива?');
    for c := 1 to 10 do read(a[c]);
    for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n);
    writeln('кратных трем: ', n);
end.
Изображения
Тип файла: jpg P_20150330_091821(1).jpg (103.5 Кб, 113 просмотров)

Последний раз редактировалось Stilet; 31.03.2015 в 21:33.
Просто человек вне форума Ответить с цитированием
Старый 31.03.2015, 21:35   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Цитата:
что не правильно?
Да все вроде верно...
Я бы только в начало дописал n:=0; и readln; в конец, чтоб консоль не закрывалась.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.03.2015, 21:37   #3
Просто человек
Пользователь
 
Регистрация: 16.02.2015
Сообщений: 13
По умолчанию

Вот исправил и работает)
Код:
Program desyt;
var a: array [1..10] of integer;
    c, n: integer;
begin
    writeln('элементы массива?');
    for c := 1 to 10 do begin write('a[',c,']='); 
    read(a[c]);
    end;
    for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n);
    writeln('кратных трем: ', n);
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 31.03.2015 в 22:48.
Просто человек вне форума Ответить с цитированием
Старый 31.03.2015, 22:13   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

инициализируй n
Poma][a вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Массивы. Ebon Помощь студентам 1 26.11.2011 20:45
Массивы Паскаль! Денис999 Помощь студентам 3 24.05.2010 18:39
массивы (паскаль) AndrewPl Помощь студентам 14 25.04.2010 16:06
массивы Паскаль Натуськ@25 Помощь студентам 1 13.02.2009 19:33


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS