В произвольно данном одномерном1.

В произвольно данном одномерном1. В произвольно данном одномерном массиве (случайные значения из отрезка -4 до 10) из 13 частей, найти малый элемент и его номер.
2.
Сформируйте одномерный массив из 6 элементов (значения элементов укажт юзер с клавиатуры). Обнулите значения всех частей с четными индексами. Выведите значения одномерного массива в строчку через пробел.

Задать свой вопрос
Колечицкая Алёна
паскаль?
Камилла Чигарагина
меня отвлекли, сейчас отошлю
1 ответ
1.
var
a: array [0..12] of integer;
i, k: byte;
min: integer;
begin 
Randomize; 
for i:=0 to 12 do 
begin 
a[i]:=random(15)-4; 
write(a[i]:4); 
end; 
min:=a[0]; 
for i:=1 to 12 do 
if a[i] lt; min then     
begin       
min:=a[i];       
k:=i;     
end; 
writeln; 
writeln('Min v pozicii ', k, ' = ', a[k]); 
readln;
end.

2.

var
a: array [1..6] of integer;
i: byte;
begin
for i:=1 to 6 do
begin 
write(i, ' = '); 
readln(A[i]);
end;
writeln;
for i:=1 to 6 do
begin 
if i mod 2 = 0 then A[i]:=0; 
write(A[i], ' ');
end;
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт