Вопрос по информатике:
На Паскаль
1.С клавиатуры вводится число. Осуществить линейный поиск элемента в массиве. Вывести номер элемента, равного данному, либо сообщение о том, что такого элемента в массиве нет.
2.Выполнить реверс массива из 10 элементов, заполненного случайными числами в интервале [-100; 100].
3.Найти произведение всех элементов массива из 5 элементов, заполненного с клавиатуры.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.05.2017 20:58
- Информатика
- remove_red_eye 13452
- thumb_up 23
Ответы и объяснения 1
Первая программа может выглядеть так:
uses crt;
const n=10;
type Mas=array [1..n] of integer;
Var A: Mas;
i, x:integer;
priznak: boolean;
Begin
ClrScr;
priznak:=false;
WriteLn(' Massiv: ');
for i:=1 to n do
begin
A[i]:=-100+random(200);
Write(A[i]:5);
end;
WriteLn;
Write(' X = '); ReadLn(X);
WriteLn;
for i:=1 to n do
if X=A[i] then
begin
WriteLn (' X = ', A[i], ' Index = ', i);
priznak:=true;
end;
if priznak=false then Writeln (' None...');
ReadLn;
end.
2. А вот реверс:
uses crt;
const n=10;
type Mas=array [1..n] of integer;
Var A: Mas;
i:integer;
Begin
ClrScr;
WriteLn(' Massiv: ');
for i:=1 to n do
begin
A[i]:=-100+random(201);
Write(A[i]:5);
end;
WriteLn;
WriteLn(' Revers: ');
for i:=n downto 1 do
Write(A[i]:5);
WriteLn;
ReadLn;
end.
И. наконец, последняя программа:
uses crt;
const n=5;
var i, x : integer;
P:longint;
begin
ClrScr;
P:=1;
WriteLn(' Wwod Massiva: ');
for i:=1 to n do
begin
ReadLn (x);
P:=P*x;
end;
WriteLn;
WriteLn(' P = ', P);
WriteLn;
ReadLn;
end.
- 15.05.2017 16:56
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.