import static java.lang.Math.*;
public class Main {
public static void main(String[] args) {
int[] A = new int[10];
for (int i = 0; i < 10; i++) A[i] = (int)(random()*((10 - -5) + 1)) - 5; //заполнение массива A ранд. числами от -5 до 10
int[] B = new int[5], C = new int[5];
for (int i = 0, j = 0; i < 5; i++, j+= 2) {
B[i] = A[j];
C[i] = A[j + 1];
}
System.out.println("\nМассив A: ");
for (int i = 0; i < 10; i++) System.out.print(A[i] + " ");
System.out.println("\nМассив B (элементы под чётными номерами массива A): ");
for (int i = 0; i < 5; i++) System.out.print(B[i] + " ");
System.out.println("\nМассив C (элементы под нечётными номерами массива A): ");
for (int i = 0; i < 5; i++) System.out.print(C[i] + " ");
}
}
а я разве их не решал
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.