Question

Переведите в кумир пожалуйста 1. Const N = 10; Var i,S:integer; m:array [1..N] of integer; Begin randomize; S:=0; for i:=1 to N do begin m[i]:= random(201)-100; writeln(m[i]); end; for i:=1 to N do if m[i] mod 2 = 0 then S:=S+m[i]; writeln('Summa = ',S); readln; end.

Answer 1

Было:
const
  N = 10;
 
var
  i, S: integer; 
  m: array [1..N] of integer;
 
begin
  randomize; 
  S := 0;
  for i := 1 to N do
  begin
    m[i] := random(201) - 100;
    writeln(m[i]);
  end;
  for i := 1 to N do
    if m[i] mod 2 = 0 then
      S := S + m[i];
  writeln('Summa = ', S);
  readln;
end.
 
Стало:
цел i, S, N
N := 10
цел таб m[1:N]
 
алг
нач
  S := 0
  нц для i от 1 до N
    m[i] := irand(-100, 100)
    вывод m[i], нс
  кц 
  нц для i от 1 до N
    если mod(m[i], 2) = 0 то
      S := S + m[i]
    все
  кц
  вывод "Summa = ", S
кон

Answer 2

Приведенный вами код написан на языке Pascal и выполняет следующие действия:

1. Объявляет константу `N` со значением 10. 2. Объявляет переменные `i`, `S`, и массив `m` размером `N` элементов. 3. Использует цикл для заполнения массива `m` случайными целыми числами от -100 до 100. 4. Выводит значения массива `m` на экран. 5. Использует еще один цикл для подсчета суммы элементов массива, которые являются четными числами. 6. Выводит сумму на экран.

Теперь переведем этот код в Кумир:

Ввод: Целое N := 10;
      Целое i, S := 0;
      Массив целых m[1..N];

Начало
    Для i от 1 до N Шаг 1 делать
        m[i] := случайное(201) - 100;
        Вывод(m[i]);
    КонецЦикла

Для i от 1 до N Шаг 1 делать
        Если m[i] mod 2 = 0 Тогда
            S := S + m[i];
        КонецЕсли
    КонецЦикла

Вывод("Summa =", S);
Конец.

Этот код выполняет те же действия, что и оригинальный код на Pascal, но написан на языке программирования Кумир.