Среда, 23.10.2019, 04:14
Приветствую Вас Гость

= Ученье - свет! =

Ученье - свет!
Вера Петровна Матвеева
Методическая папка
Форма входа
Статистика
счетчик посещений


Онлайн всего: 1
Гостей: 1
Пользователей: 0


Главная » Гостевая книга [ Добавить запись ]

Страницы: 1
Показано 1-2 из 2 сообщений
0   Спам
2. Vera Matveyeva [Vera]   (03.04.2013 16:44)
Саша, ошибка - в объявлении массива.
Var mas: array [1..m] of integer;
Максимальный индекс массива должен быть определён заранее. Т.е. либо указывается числовое значение, например,
Var mas: array [1..20] of integer;
либо задаётся константой перед описанием массива:
Const m=20;
Var mas: array [1..m] of integer;

Успехов в освоении программирования!

0   Спам
1. Кривошлык Александр   (02.04.2013 15:56) E-mail
Вера Петровна, у меня программа не работает, где ошибка не пойму, помогите!
Дан одномерный массив. Найти количество элементов массива, равных заданному k.
Program pr_3;
Var mas: array [1..m] of integer; I, k, n, kol: integer;
Begin
Write(‘введите размерность массива n=’); read(n);
Writeln(‘введите значение к=’); read (k);
kol:=0;
Randomize;
For i:=1 to n do begin
Mas[i]:=random(i);
Write (mas[i], ‘ ‘);
If mas[i]=k then kol:=kol+1;
End; Writeln (‘количество элементов, равных ‘, k,’ равно ‘, kol);
End.

1-2

Имя *:
Email *:
WWW:
Все смайлы
Код *:
verapetrovna.ucoz.
Курс валют РФ
Курс валют ЦБ РФ
21.12.2015
Курс Доллара к рублю на сегодняUSD00.0000
Курс Евро к рублю на сегодняEUR00.0000
Валюта РК
Часы
Поиск по сайту
Банк Интернет-п...
Банк Интернет-портфолио учителей
Наш опрос
Оцените мой сайт
Всего ответов: 53
Сайты учителей
Презентации PowerPoint