(Паскаль)2.Заполнить с клавиатуры массив из 10 элементов. Если
5-9 класс
|
минимальный элемент находится в первой
половине массива увеличить каждый четный элемент массива в два раза, в противном случае массив
оставить без изменения. Вывести новый
массив на экран в виде строки.
program chik3;
var a:array[1..1000]of integer;
i,min,l:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
min:=a[1];l:=1;
for i:=2 to 10 do
begin
if(a[i]<min)then begin
min:=a[i];
l:=i;
end;
end;
for i:=1 to 5 do
begin
if(a[i]=min)then l:=-50;
end;
if(l=-50)then begin
for i:=1 to 10 do
begin
if(a[i] mod 2=0)then a[i]:=a[i]*2;
end;
end;
for i:=1 to 10 do
begin
write(a[i],' ');
end;
end.
Другие вопросы из категории
которая определяет, сколько чисел из К являются нечетными.
Program mass;
uses crt;
var i,k:integer;
a:array[1..100] of integer;
begin ClrScr;
k:=0;
randomize;
for i:=1 to 10 do begin
a[i]:=random(10)-5; write( a[i]:3);
if a[i] mod 2=1 then
k:=k+1;
end;
writeln ( 'Кол-во нечетных чисел из K ',k);
readln;
end.
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
есть ли в массиве одинаковые элементы и
вывести их на экран.
Заполнить с клавиатуры массив из 10 элементов. Подсчитать количество
положительных и отрицательных элементов массива.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.