Консультация № 138123
27.05.2008, 17:43
0.00 руб.
0 2 2
Написать программу, которая вычисляет, сколько раз введённое с клавиатуры число встречается в одномерном массиве A размерностью N элементов.

Обсуждение

Неизвестный
27.05.2008, 20:09
общий
это ответ
Здравствуйте, Sanq4!
Задача с пояснениями в приложении.
Удачи!!!


Приложение:
const {Длина массива} N=10;var {val-число, i-счетчик для For, count-кол-во} Val, i, count: integer; {массив} a: array [1..N] of integer;begin {Получаем число} write(‘Введите число: ‘); readln(Val); {Инициализируем счетчик} count:=0; randomize; {В цикле For...} for i:=1 to N do begin {...Заполняем массив случайными числами} a[i]:=random(10)-5; {выводим через пробел} write(a[i], ‘ ‘); {если оно равно заданному числу,} if a[i] = Val then {То увеличиваем счетчик на 1} inc(count); end; writeln; {вывод} Write(count); readln;end.
Неизвестный
27.05.2008, 23:03
общий
это ответ
Здравствуйте, Sanq4! <font color=blue>К</font>од <font color=blue>В</font>ашей программы в приложении.
<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Пишем правильно.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/18359 target=_blank>Николай Владимирович / Н.В.</a></b> (Профессор)
<b>• Дата редактирования:</b> 27.05.2008, 23:17 (MCK)</font></fieldset>

Приложение:
uses crt; var a:array [1..20] of integer; i,n,b,kol:integer; begin clrscr; writeln (‘vvedite kol-vo elementov‘); readln (n); writeln (‘vvedite chislo a‘); readln(b); kol:=0; writeln (‘vvedite massiv‘); for i:= 1 to n do begin writeln (‘vvedite ocherednoy element‘); readln (a[i]); if a[i]=b then inc(kol); end; write (‘kol-vo elementov ravnyh ‘,b,‘ ravno ‘,kol); readln; end.
Форма ответа