сервис вопросов и ответовПомогите пожалуйста срочно надо
10-11 класс|
|
Прикрепленные изображения
Tronin1
19 авг. 2013 г., 17:26:01 (10 лет назад)
Micromacro
19 авг. 2013 г., 18:04:41 (10 лет назад)
здесь b d a a c 2312 112161 3
Cat20000
19 авг. 2013 г., 18:53:35 (10 лет назад)
Комментарий удален
Ответить
Другие вопросы из категории
Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s: string; d,i:integer;
begin
s:='177777277777377777477777;
d:=length(s);
for i:=0 to d - 4 begin
if copy(s,i,5)=00000 then begin
delete(s,i,5);
end
end;
writeln(s)
end.
Упорядочить последовательность по убыванию элементов и выдать на экран все элементы, большие некоторого заданного числа. И вот как раз это некоторое
заданное число я взяла "с=2000". Не могу написать часть программы, которая бы как раз и обозначала вывод на экран последовательность чисел, которые были бы больше заданного числа.. :(
Program mas1;
uses crt;
Var a: array [1..30] of real;
i,n,P,k,c: integer;
d: real;
Begin
repeat
Write(' Введите 0 Readln(n);
if (n<0) or (n>30) then
writeln(' n неправильно введено');
until (n>=1) and (n<=30);
P:=2;
For k:=1 to n do
Begin
P:=P*(k+2);
a[k]:=P*cos(k);
end;
writeln(' Получен массив А');
for i:=1 to n do
writeln('A[',i:2,']=',A[i]:15:3);
writeln;
For i:=1 to n do
for k:=1 to n-i do
if a[k] begin
d:=a[k];
a[k]:=a[k+1];
a[k+1]:=d
end;
writeln;
writeln(' Массив по убыванию');
for i:=1 to n-1 do
writeln('A[',i:2,']=',A[i]:15:3);
writeln;
c:=2000;
?
end.
Читайте также
1) дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Вывести на экран только те числа,для которых из значение больше номера
их индекса. Помогите пожалуйста,срочно надо!!!((
Вы находитесь на странице вопроса "Помогите пожалуйста срочно надо", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.