Массив состоит из 100 целых чисел. Найти разность наибольшего четного и наибольшего нечетного элемента массива.
Всё это в Паскале
Массив состоит из 100 целых чисел. Найти разность наибольшего четного и наибольшего нечетного элемента массива.
Всё это в Паскале
Массив А размером 10 заполняется случайными целыми числами из интервала (-150,250). Заменить максимальный элемент массива на противоположный по знаку.
записать в одновременный массив 9 целых чисел и посчитать их разность. на паскале
Дан массив из n элементов. Найти сумму элементов которые крытны своим индексам.
Определить Двумерный массив и выполнить следующие вычисления:
1. Максимальный элемент Двумерного массива.
2. Сумму элементов двумерного массива, расположенных до последнего положительного элемента.
Массив из 12 целых чисел вводят с клавиатуры. Найдите сумму элементов массива.
Pascal
для массива x из 30 элементов найти наибольший элемент, после чего нормировать все элементы массива, поделив их значения на значение наибольшего элемента. Значение наибольшего элемента, его номер вывести на экран.
1.дан массив из n чисел. увеличить в 10 раз те элементы , которые кратны 3.
2.дан массив из n чисел . посчитать количество тех элементов , которые имеют последнюю цифру 2 и 5
C++
1) Заполните массив случайными числами в диапазоне 20.100 и подсчитайте отдельно число чётных и нечётных элементов.
2) Заполните массив случайными числами в диапазоне 0.100 и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50.
Дан массив из 10 чисел. Найти сколько элементов имеют максимальное значение.(C++)
Найти наименьший из элементов, расположенных правее максимального элемента массива.
Вместо наименьшего элемента выводит последний. Помогите исправить.
const n=10;
var
a:array[1.n] of integer;
i,j,max,minp:integer;
begin
write(‘Массив ‘);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
write(‘Максимальный элемент ‘);
max:=0;
imax:=0;
for i:=1 to n do
if (a[i]>max) then begin
max:=a[i];
j:=i;
end;
writeln(max);
minp:=0;
for i:=j to n do
if (a[i] minp:=a[i];
write(‘Наименьший элемент правее максимального ‘,minp);
end.
Помогите решить. Надо написать на языке паскаль 7 вариант
Скільки разів буде виконано цикл
for x in range (5, -2, -2) ?
1) 7
2) 4
3) 5
4) жодного разу
Артур составляет 5-буквенные коды из букв А, П, О, Р, Т. Каждую букву нужно использовать ровно один раз, при этом нельзя ставить рядом две гласные. Сколько различных кодов может составить Артур?
Напишите с объяснением, пожалуйста
Решите задачу.
У исполнителя имеется две команды:
1. Прибавить 3
2. Отнять 1
Какое минимальное количество команд необходимо выполнить исполнителю для получения числа 9 из числа 2 Выберите один ответ:
a.5
b.2
c.7
d.3
Write a program that lets you know if you can have a key or not, based on your role at the school.
First ask for the user’s role at the school. They can be a student, administrator, or a teacher. (And remember that capitalization is important! ‘Student’ is not the same as ‘student’.)
Example 1: Administrator or Teacher
For example, if this was the input:
Are you an administrator, teacher, or student?: teacher
This should be the output:
Administrators and teachers get keys!
Example 2: Student
And if this was the input:
Are you an administrator, teacher, or student?: student
This should be the output:
Students do not get keys!
(Note: You should also be able to handle a situation where the user enters a value other than administrator, teacher or student and tell them they must be one of the three choices!)
Example 3: Other
If they input anything else:
Are you an administrator, teacher, or student?: secretary
This should be the output:
You can only be an administrator, teacher, or student!
РЕШИТЕ ЗАДАЧУ ПО ИНФОРМАТИКЕ В excel
Во время каникул Незнайка решил поработать продавцом газет и проработал целую неделю. За каждый проданный экземпляр газеты «Известия Цветочного города» он получал 10 монет. За каждый экземпляр «Технической газеты Винтика и Шпунтика» — 7 монет. За каждый экземпляр «Медицинских новостей доктора Медуницы» — 8 монет. В понедельник он продал 8 экземпляров Известий, 7 экземпляров Технической газеты и 5 экземпляров Медицинских новостей. Во вторник было продано 13 экземпляров Известий, 4 экземпляра Технической газеты и 8 экземпляров Новостей. В среду — 10 Известий, 10 Технических и 12 Новостей. В четверг — 8 Известий, 7 Технических газет и 15 Медицинских новостей. В пятницу — 10 штук Известий, 5 штук Технических и 8 штук Медицинских. В субботу — 9 Известий, 13 Технических газет и 8 Медицинских новостей. В воскресенье — 5 экземпляров Известий, 6 экземпляров Технической и 9 экземпляров Медицинской.
Сколько экземпляров каждой газеты Незнайка продавал за каждый день недели и сколько — за всю неделю; сколько денег он зарабатывал за каждый день недели и сколько — за всю неделю; сколько денег он получал за продажу каждой газеты за всю неделю?
КАКУЮ ФОРМУЛУ НАДО ПИСАТЬ В ПУСТЫХ ЯЧЕЙКАХ? (Знаю, что должна быть формула Сумма произведений) ПИШИТЕ ФОРМУЛУ ПОДРОБНО, ПОЖАЛУЙСТА
Пацаны срочно будет ли звуковой сигнал загрузки биос без видеоядра?
Що таке «висловлювання» в інформатиці?a.
Це думка, яку може висловлювати людина
b.
Це речення, яке містить твердження про певний об’єкт або про зв’язки між об’єктами
c.
Фрагмент алгоритму, який містить послідовність команд, яка виконуватиметься вказану кількість разів
d.
Алгоритм, який обирає сценарій роботи в залежності від умови
Сместиться на (—12,16) Повтори 4 раза Сместиться на (а, Ъ) Сместиться на (—3,1) Сместиться на (2, —2) конец
Дан целочисленный массив . Найти индекс максимального элемента.
max1 — индекс максимального четного элемента
max2 — индекс максимального нечетного элемента
Var
mas: array[1.100] Of integer;
max1,max2,j: integer;
Begin
For j:=1 To 100 Do
Begin
mas[j] := random(100);
If j=1 Then max1 := j
Else
If (mas[j]>mas[max1])And(mas[j] Mod 2=0) Then max1 := j;
If j=1 Then max2 := j
Else
If (mas[j]>mas[max2])And(mas[j] Mod 2=1) Then max2 := j;
write(mas[j],’ ‘);
End;
writeln;
write(mas[max1],'[‘,max1,’] — ‘,mas[max2],'[‘,max2,’] = ‘,mas[max1]-mas[max2]);
End.