сервис вопросов и ответоврешите пожалуйста...желательно подробно=(((((
10-11 класс|
|
Прикрепленные изображения
Dariya4
19 окт. 2015 г., 19:12:21 (8 лет назад)
Megabasalaeva
19 окт. 2015 г., 21:40:41 (8 лет назад)
Pascal ABC:
Program Polina1995250;
uses crt;
const n=20;
var
e:array[1..n] of integer;
min,max,i: integer;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Элементы массива:');
randomize;
e[1]:=random(100)-50;
write (e[1]:5);
max:=e[1];
min:=e[1];
for i:=2 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]>max then
max:=e[i];
if e[i]<min then
min:=e[i];
end;
writeln();
writeln('Максимальный элемент: ',max);
writeln('Минимальный элемент: ',min);
writeln();
writeln('Разница максимального и минимального элементов ',max-min);
end.
Ответить
Другие вопросы из категории
Найдите общее кол-во собранного картофеля.результаты сбора и названия бригад хранятся в соответствующих массивах.ОПределите названия и результаты тех
бригад,которые показали наилучший и наихудший результаты при сборе.
Помогите пожалуйста!
Begin
GetTime(часы,минуты,секунды,миллисекунды);
Выполнение тестов;
GetTime(часы,минуты,секунды,миллисекунды);
end.
Как узнать время выполнения тестов?
т.е конечное время минус начальное.
Например:
1 час 50 минут 30 секунд МИНУС 1 час 55 минут 30 секунд = 0 часов 5 минут 0 секунд
как это вывести в формулах?
Здравствуйте! Помоги пожалуйста заменить цикл FOR на цикл REPEAT! ОЧЕНЬ СРОЧНО!
program PRIMER1;
USES CRT;
CONST
A=PI/4;
B=4/PI;
M=20;
VAR
F,H,X:REAL;
i:INTEGER;
BEGIN
CLRSCR;
H:=(B-A)/M;
FOR I:=0 TO M DO
BEGIN
X:=A+I*H;
F:=COS (1/X);
WRITELN ('X=', X:6:3,',F(X)=',F:6:3);
END;
END.
помогите написать задачу в паскале АBC в файле 1.txt находятся английские слова (записаны столбиком) а в файле 2.txt находятся их русский перевод
запускаем программу вводим английское слова программа должна выдать на экран русский перевод
Читайте также
Пожалуйста,объясните подробно как это решать:
1)Укажите через запятую в порядке возрастания все десятичные числа,не превосходящие 25, запись которых в системе счисления с основанием 6 начинается на 4.
2)В системе счисления с некоторым основанием десятичное число 83 записывается в виде 123.Укажите это основание.
3)Запись числа 65(8) в некоторой системе счисления выглядит так: 311(N).Найдите основание системы счисления N.
У меня подобных заданий 90 штук,очень много решать,за месяц все забыл.Надеюсь кто-нибудь мне напомнит.
Люди,прошу вас, помогите пожалуйста, я уже долго сижу над этой задачей,не могу решить,пожалуйста помогите! =(((
найти номер третьего положительного элемента в потоке из 10 чисел или сообщить,что трех положительных элементов нет. (Решать без массива)
Решите пожалуйста!
Это информатика, 10 класс
Вопросы на фотографии
Номера 5 и 6 не надо решать
Вы находитесь на странице вопроса "решите пожалуйста...желательно подробно=(((((", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.