Дано вещественное число х напишите программу, которая вычисляет целую часть числа х, округленную до ближайшего целого, и выводит на экран монитора результат
12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 uses crt; const n=10; var a: array[1..n] of integer; i,k,k0: integer; s: real; begin clrscr; writeln('массив : '); for i: =1 to n do begin write(i,' = '); read(a[i]); end; k: =1; for i: =1 to n do if a[i]< 0 then begin s: =s+a[i]; inc(k); end else begin if a[i]> 0 then inc(k0); end; s: =s/k; writeln; if (k=1) and (k0=0) then writeln('положительных или отрицательных элементов в массиве нет,среднее ариф-ское = 0') else writeln('среднее ариф-ского отрицательных элементов массива =',s: 0: 2); readkey; end.
sveta740450
29.06.2022
Const n = 10; var d: array[1..n] of integer; function sum3(k: integer): integer; begin sum3 : = d[k] + d[k + 1] + d[k + 2] end; var i: integer; begin randomize; writeln('элементы массива'); for i : = 1 to n do begin d[i] : = random(11); write(d[i]: 3) end; writeln; writeln('сумма d[1]..d[3]: ', sum3(1)); writeln('сумма d[3]..d[5]: ', sum3(3)); writeln('сумма d[4]..d[6]: ', sum3(4)) end. тестовое решение: элементы массива 2 1 5 9 10 2 9 7 2 1 сумма d[1]..d[3]: 8 сумма d[3]..d[5]: 24 сумма d[4]..d[6]: 21
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дано вещественное число х напишите программу, которая вычисляет целую часть числа х, округленную до ближайшего целого, и выводит на экран монитора результат
var
x: real;
begin
readln(x);
writeln(x: 0: 0);
end.