Составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и:
5-9 класс
|
а) находит элементы с нулевыми значениями
б) находит индексы четных элементов
в) подсчитывает количество отрицательных элементов
г) определяет, есть ли в этом массиве хотя бы одно число, кратное трем
д) находит в этом массиве индексы элементов, значения которых кратны трем .
На экран выводятся исходный массив и найденные элементы
const n=15;
Var a:array[1..n] of integer;
i,indx,k,tr,indxx:integer;
Begin
Randomize;
For i:=1 to n do begin
A[i]:=Random(40)-20;
Write(a[i],' ');
end;
Writeln;
write('0 имеет номер: ');
For i:=1 to n do
Begin
If A[i]=0 thenwrite(i);
end;
Writeln;
indx:=0;
For i:=1 to n do
Begin
If a[i] mod 2=0 then
begin
indx += 1;
a[indx]:=a[i];
end;
end;
Write('Индекс четных элементов: ');
For i:=1 to indx do
write(a[i],' ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
inc(k);
end;
end;
Writeln;
Writeln('Кoличество отрицательных элементов: ',k);
For i:=1 to n do
Begin
If A[i] mod 3=0 then
tr:=a[i];
end;
Writeln('Кратное трем ',tr);
indxx:=0;
writeln('Индексы кратны 3: ');
For i:=1 to n do
Begin
If a[i] mod 3=0 then
begin
indxx += 1;
a[indxx]:=a[i];
write(' ',a[i]);
end;
end;
end.
Kieckuzhin уже решаешь?
ты знаешь как решить?
просто спрашиваю, может человек уже начал решать
Другие вопросы из категории
вычисления суммы сдачи от данных вами продавцу денег. 3) определения времени показа по телевизору интересующего вас фильма. 4) вычисления площади треугольника. 5) определения времени падения кирпича с крыши дома. 6) определения месячной платы за расход электроэнергии. 7) перевода русского текста на итальянский язык. 8) перевода итальянского текста на русский язык.
ПОЖАЛУЙСТА ПОМОГИТЕ!!
показания? я учусь в 4 классе. я много смотрю информацию о егэ, потому что я очень волнуюсь! и я видела ответы по всем тестам, но я понимаю что это выкладывает не министерство образования, а дети которые это уже прошли. я очень наблюдала над всеми заданиями, и поняла, то что егэ которое выложили в интернет ложные! там ужасно много ошибок! и я решила думать своей головой....верьте себе, но не интернету!
Распишите все свои действия
Читайте также
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.