Переименовать село или нет?

@Кирилл110 · Регистрация: 20.12.2018

Студворк — интернет-сервис помощи студентам

Составить позволяющую объективно оценить на основании вопроса: переименовать село Ваденск в Керенск или нет? Опросить 10 человек. (Задача на массивы).
Если голосов за переименования села в Керенск будет больше 5 то село переименовывается если меньше или равно 5 остаётся название села Ваденск.
ПОМОГИТЕ ПЛИЗ

@Cyborg Drone · 10.05.2019, 19:45

Без проверки корректности входных значений:

Pascal

const
  m = 10;
 
var
  q: array[1..m] of integer;
  i, n: integer;
 
begin
  writeln('Введите результаты голосования, 0 - против, 1 - за');
  for i := 1 to m do
   begin
     write(i, ' ответ: ');
     readln(q[i]);
     n := n + q[i]
   end;
  if n > 5
    then write('Село Ваденск нужно переименовать в Керенск')
    else write('Название села Ваденск нужно оставить без изменений');
  readln
end.

@Кирилл110 0 / 0 / 0 Регистрация: 20.12.2018 Сообщений: 41
		1
	Переименовать село или нет? 07.05.2019, 16:35. Показов 681. Ответов 1 Метки нет (Все метки) Составить позволяющую объективно оценить на основании вопроса: переименовать село Ваденск в Керенск или нет? Опросить 10 человек. (Задача на массивы). Если голосов за переименования села в Керенск будет больше 5 то село переименовывается если меньше или равно 5 остаётся название села Ваденск. ПОМОГИТЕ ПЛИЗ 0

Опции темы