Дан массив. определить является ли номер минимального элемента четным
10-11 класс
|
var a:array [1..10] of integer;
i,k:integer;
BEGIN
read(a);
k:=1;
for i := 1 to 10 do
begin
if a[k]>a[i] then k:=i;
end;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
END.
Другие вопросы из категории
дискретизации. Графический файл содержал 16384 пикселей, кодированных с использованием палитры из 256 цветов. И в файле с музыкальной композиции и графическом файле не использовалось сжатия данных. Кроме упомянутых скачиваемых файлов другой нагрузки на канал доступа в интернет не было. Сколько секунд длиться музыкальная композиция которую скачал Иван? В ответе укажите целое число секунд. Единицы измерения в ответе не указывать.
b:array [1..100,1..100] of real;
i,m,n,c:integer;
begin
readln(n);
readln(c);
for i:=1 to n do
for m:=1 to c do readln(a[i,m]);
for i:=1 to n do
for m:=1 to c do
b[i,m]:=a[i,m]/8;
for i:=1 to n do
for m:=1 to c do writeln(b[i,m]);
end.
можете написать обозначение каждого символа
var n,k,i,t:integer; f:text;
begin
assign(f,'f1.txt');
rewrite(f);
readln (n);
for i:=2 to n do begin
t:=0;
for k:=2 to n do
if i mod k=0 then t:=t+1;
if t=1 then write(f,i:3);
end;
close(f);
end.
Читайте также
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
Дано число, определите является ли оно двухзначным и кратным 2 и 6
P.S. должно решаться через мод
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.