Ну вот смотри часть программы var и begin сам допишешь: var massiv:array[1..10] of integer; //стаж massiv1:array[1..10] of integer; //семейное положение x:integer; for i:=1 to 10 do begin //10 человек massiv[i]:=random(10); //ну стаж любой до 10; massiv1[i]:=random(2); //если 0 значит холост если 1 - женат if massiv1[i]=0 then x:=i; end; for i:=1 to 10 do begin if (massiv1[i]=0) and (massiv[i]<massiv[x]) then x:=i; writeln('Холостой работник с наименьшем стажем под номером ',x) end;
var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
Чтобы прекратить ввод чисел в массив нужно ввести число "-1". class ArrayMiddle{ public static void main(String args[]){ java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1]; while((eArray[eArray.length-1] = in.nextLong())!=-1){ long nArray[] = new long[eArray.length+1]; for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell]; eArray = nArray; } eArray[eArray.length-1] = 0; for(int cCell = 0; cCell<eArray.length-1; cCell++)eArray[eArray.length-1]+=eArray[cCell]; System.out.print(eArray[eArray.length-1]/(double)(eArray.length-1)); } }
var massiv:array[1..10] of integer; //стаж
massiv1:array[1..10] of integer; //семейное положение
x:integer;
for i:=1 to 10 do begin //10 человек
massiv[i]:=random(10); //ну стаж любой до 10;
massiv1[i]:=random(2); //если 0 значит холост если 1 - женат
if massiv1[i]=0 then x:=i;
end;
for i:=1 to 10 do begin
if (massiv1[i]=0) and (massiv[i]<massiv[x]) then x:=i;
writeln('Холостой работник с наименьшем стажем под номером ',x)
end;