Регистрация
adrian55RUS
30.10.2021 22:14
Информатика
Есть ответ 👍

Дан массив a(n). у нечётных элементов отбросить дробную часть числа, а у элементов с индексами, остаток 1 при делении на 3, отбросить целую часть числа.

210
452
Посмотреть ответы 2

Ответы на вопрос:

mkashkan
mkashkan
4,8(43 оценок)
//pascalabc.net 3.1 сборка 1219 begin       var a : = arrrandomreal(readinteger('n='), 0, 9);       println(a);       for var i : = low(a) to high(a) do       begin               if i mod 2 = 1 then a[i] : = trunc(a[i]);               if i mod 3 = 1 then a[i] : = frac(a[i]);       end;       println(a); end.
paxand
paxand
4,6(100 оценок)
Var n,sum: integer;     arr: array [0..30] of integer; begin   sum: =0;   randomize;     for n: =0 to 29 do begin   arr[n]: =random(1000)-500;   if (arr[n]< 0) then sum: =sum+arr[n];   end;   writeln('сумма отрицательных чисел = ',sum); end.

Популярно: Информатика