Примерно так:
<form name="Форма" method=POST action="/">
<input type=hidden name="Имя" /><input type=hidden name="Пароль" />
</form>
<script>
document.Форма.Имя = prompt("Введите имя:");
document.Форма.Пароль = prompt("Введите пароль:");
document.Форма.submit();
</script>
1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
1. числовая-количественная - мера объектов и их свойств в окружающем мире.
2. Звуковая — воспринимаемая органами слуха.
3.Тактильная — воспринимаемая тактильными рецепторами.
4. Обонятельная — воспринимаемая обонятельными рецепторами.
5. Вкусовая — воспринимаемая вкусовыми рецепторами.
const N=10
var a:array[1..n] of integer;
k,i,p:integer;
begin
for i:=1 to n do begin
a[i]:=random(101);
write(a[i]:3);
end;
writeln;
write('Введите k,p');
read(k,p);
writeln;
if a[p]>a[k] then write(a[p]) else write (a[k]);
end.