сервис вопросов и ответов1) Поменять местами минимальный четный элемент с последним. 2)На место максимального отрицательного элемента поместить сумму элементов кратных
10-11 класс|
|
3. (в программе Паскаль) РЕБЯТКИ помогите)))))))
женюлька12319997
25 апр. 2014 г., 20:36:41 (10 лет назад)
Akiseleva2804
25 апр. 2014 г., 23:11:57 (10 лет назад)
1) program z1;
uses crt;
var a: array[1..100] of integer;
n,i,x,max,min,k:integer;
begin
randomize;
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
min:=a[2];
for i:=3 to n do
begin
if a[i] mod 2=0 then
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
end;
x:=a[k];
a[k]:=a[n];
a[n]:=x;
for i:=1 to n do
write(a[i]:4);
max:=a[1];
end.
Ответить
Другие вопросы из категории
Помогите с тестами по информатике!!! А1. Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
a := 3 + 3*4;
b := (a div 10) + 4;
a := (b mod 10) + 2;
b:= a + b;
a:= a mod 2 + b div 3;
1) a=4, b=14;
2) a= 24, b= 6;
3) a=5, b=12;
4) a=8, b=12.
А2. Для какого из указанных значений числа X истинно высказывание
((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))
1) 1
2) 2
3) 3
4) 4
А3. Укажите, какое логическое выражение равносильно выражению ¬(A Ú ¬B Ú C) ?
1) ¬A Ú B Ú ¬C
2) A Ù ¬B Ù C
3) ¬A Ú ¬B Ú ¬C
4) ¬A Ù B Ù ¬C
X
Y
Z
F
1
1
1
1
1
1
0
1
1
0
1
1
А4. Символом F обозначено одно из указанных ниже логических выражений от трех аргументов: X, Y, Z. Дан фрагмент таблицы истинности выражения F (см. таблицу справа).
Какое выражение соответствует F?
1) X Ú ¬Y Ú Z
2) X Ù Y Ù Z
3) X Ù Y Ù ¬Z
4) ¬X Ú Y Ú ¬Z
А5. Что будет выведено на печать в результате выполнения следующих операторов:
a := 5; b := 10;
write( 'сумма двух чисел ' ); write( 'a+b' );
write( ' = ', a+b );
1) сумма двух чисел 5+10 = 15
2) сумма двух чисел a+b = 15
3) сумма двух чисел 5+10 = a+b
4) сумма двух чисел a+b = 5+10
5) ни один из ответов 1-4 не верен
А6. Чему было равно значение переменной a, если после выполнения операций
b := sqrt( sqr(a+1) );
c := -b;
a := 1 + 2 / (c-b);
она стала равна 0 ?
1) 2
2) 0
3) –1
4) любое вещ. число, не равное -1
5) ни один из ответов 1-4 не верен
А7. Чему будет равно значение А после выполнения цикла
а:=1024;
While a>0 do
a:=a / 2;
1) 0
2) 1
3) зациклится
4) 512
5) ни один из ответов 1-4 не верен
A8. Сколько раз выполнится тело цикла?
A:=32;
While A>2 do
Begin A:=A / 2; writeln(‘A’); end;
1) 8
2) 6
3) 5
4) 4
5) 3
Читайте также
Задан одномерный массив А(N) (N<=60). На место минимального элемента массива записать сумму последних К элементов массива. Если А[1]>=0, то умножить
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
Разработать словесный и графический алгоритм для двух функций при х принадлежит [-2,2] с шагом 0,2 R = K1 * Z1^2 - B * Z2 / ( K - Z3 ) ; В изменяется
от 10 до 1 с шагом -1 z1,z2,z3,k,K1-произвольно
1) В массиве А1, ... , Аn найти количество единиц, стоящих на чётных местах.
2) В массиве M1, ... , Mn вычислить сумму элементов до последнего нулевого
Составьте программу, которая для одномерного массива, содержащего n элементов вычисляет и отображает: 1) сумму элементов массива; 2)произведение чётных
элементов; 3) сумму элементов которые делятся на 3; 4) минимальный и максимальный элемент. (используя procedure или function, но чтоб была рекурсия)ПОЖАЛУЙСТА ПОМОГИТЕ ВОПРОС ЖИЗНИ И СМЕРТИ!!
Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
Вы находитесь на странице вопроса "1) Поменять местами минимальный четный элемент с последним. 2)На место максимального отрицательного элемента поместить сумму элементов кратных", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.