===== PascalABC.NET =====
begin
var R := ReadReal('Введите радиус цилиндра:');
var h := ReadReal('Введите высоту цилиндра:');
var S := 2 * Pi * R * h;
Writeln('Площадь боковой поверхности цилиндра ', S:0:5)
end.
Var n,a,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if a mod 4 = 0 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
n = 5
Вводите числа:
15
24
73
48
94
k = 2
Public static void main(String[] args) {
int [] array = {12,1,5,7,13, -1, -5};
int max = 0;
int min = 0;
for(int i = 0; i if(max max = array[i];
if(min>array[i])
min = array[i];
}
System.out.println("Max: "+max);
System.out.println("Min:"+min);
}
не понимаю чего тут трудного...вам даже синтаксис присвоения правильно дали
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var V := ArrRandom(ReadInteger('n='), -50, 50);
V.Println;
var k := V.Length;
k := (k.IsOdd ? (k + 1) : k) div 2;
V := (V[:k].OrderByDescending(t -> t) + V[k:]).ToArray;
V.Println;
end.
<h2>Пример</h2><h3>n= 13</h3><h3>27 -32 47 -45 33 28 -39 20 26 3 19 -35 5</h3><h3>47 33 28 27 -32 -39 -45 20 26 3 19 -35 5</h3>