Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.
package com.company;
public class Main {
public static void main(String[] args) {
double x = 1.5, y;
y = x * x + Math.sqrt(x) / 15;
System.out.println("Function: " + y);
}
}
Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>
Ответ:
в интернете можно поискать хотя я посмотрел там не так много информации можно через блютуз а ещё через USB кабель всё я понял эта папка называется аудио