Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
Program ch ;
Var x:integer ;
BEGIN
X:=1;
While xl=7 Do(можешь выбрать другое число)
BEGIN
Write (x, ' ') /в' ' это пробел /
X:=x+1
End ;
END.
1 строка: 101011111(2); 537(8); 351(10) ;15F(16)
2 строка: 001100001(2); 141(8); 97(10); 61(16)
3 строка: 1100101(2); 145(8); 101(10); 65(16)
4 строка: 1100100(2); 144(8); 100(10); С4(16)
напиши про разные клавиатуры для компа!!) в интернете оч много интересных фотографий. клавы и прозрачные, и в форме скелета, и гнущиеся, и всякоразные в общем) материала предостаточно, дерзай
Здесь две синтаксических ошибки.
1) Имя программы s совпадает с именем переменной s, объявленной тремя строками ниже.
2) х объявлена как простая переменная, но в четвертой строке снизу к ней обращаются, как к массиву: x[k]
Прочие ошибки (логические) в программе можно найти лишь зная задачу, которая решается.