Организовать ввод данных с клавиатуры и файла

31.05.2012, 18:13. Показов 779. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

Program  mas_5;
uses crt;
Var a:array[1..1000]  of integer;
b,k,n,i:integer;
Begin
Writeln('Введите размерность массива'); Readln(n);
Writeln('Введите число'); Readln(b);
Randomize;
k:=0;
For i:=1 to n do
begin
a[i]:=random(100); write(a[i]:4);
if a[i]>b then k:=k+1;
End;
Writeln;
If k>0 then Writeln('Количество чисел больше заданного',k) else Writeln ('Таких чисел нет');
Readln;
End.

Нужно организовать ввод данных: из файла, из оператора data, и с клавиатуры на выбор пользователя. СПАСИТЕ!!!

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

31.05.2012, 18:13

Ответы с готовыми решениями:

Организовать ввод данных с клавиатуры
помогите разобраться с заданиями. я не изучал VB, и не знаю как работать с формами. Меня попросили...

Удалить из заданной строки слова, содержащие хотя бы одну цифру (организовать ввод данных с клавиатуры)
Помогите пожалуйста, не работал еще с вводом с клавиатуры, нужно организовать ввод str1 с...

Организовать ввод данных из текстового файла
Написал программу, работает. Но мне нужно чтобы Вы помогли мне вот в чём: в строках 71-81 и 51-61...

Как организовать ввод числа с клавиатуры?
как сделать ввод числа с клавиатуры?: ввод закнчивается # то есть ввожу число:102,1 ставлю #...

	31.05.2012, 18:13

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

31.05.2012, 18:13

Помогаю со студенческими работами здесь

Организовать ввод слов с клавиатуры в массив
Как организовать ввод слов с клавиатуры в массив таким образом, что-бы каждое слово помещалось в...

Как организовать ввод с клавиатуры в pc-lisp 3.0?
Здравствуйте! Я в общем-то хотел просто предоставить возможность ввода данных(списка) в консоли с...

Как лучше организовать ввод с клавиатуры?
здравствуйте что лучше для ввода с клавы класс Sccanner или этот код BufferedReader reader = new...

Организовать форматный ввод исходных данных из текстового файла и форматный вывод результатов в текстовый файл
использовать динамические массивы, разработать подпрограмму, решающую поставленную задачу для...

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

Или воспользуйтесь поиском по форуму:

Наверх