М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Пандochka
Пандochka
14.08.2020 22:23 •  Информатика

Дан массив целых чисел b[n]. заполнен с клавиатуры. обработать массив в соответствии с .

- в массиве все элементы, правее которых стоит нечетное значение, заменить на 0.

- после первого четного элемента вставить 0.

- в массиве найти среднее арифметическое всех элементов.
паскаль ,заранее : 3

👇
Ответ:
yisupova54
yisupova54
14.08.2020

const

 N = 10;

var

 B: array[1..N+1] of integer;

 Sum, i, first_even_i: integer;

Begin

 WriteLn('Введите массив: ');

 For i := 1 to N do

   Read(B[i]);

 

 For i := 1 to N-1 do

   if (B[i+1] mod 2 <> 0) then

     B[i] := 0;

 

 For i := 1 to N do

   if (B[i] mod 2 = 0) then

   begin

     first_even_i := i;

     break;

   end;

 

 For i := N+1 downto first_even_i + 1 do

   B[i] := B[i-1];

 

 B[first_even_i] := 0;

 

 WriteLn('Среднее арифметическое всех элементов: ', Sum / (N + 1));

 WriteLn('Получившийся массив: ', B);

End.

4,5(68 оценок)
Открыть все ответы
Ответ:
89539123898
89539123898
14.08.2020
Во-первых, не whill, а while.
 Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
 Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.
4,4(40 оценок)
Ответ:
ника3931
ника3931
14.08.2020
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(100,-20,20); a.Println;
  WritelnFormat('Положительных {0}, отрицательных {1}',
    a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.

Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54
4,6(10 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ