Const n=10;
var i,p:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=Random(-10,10);
write(a[i],' ');
end;
writeln();
i:=1;
while(i<n) do begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
i+=2;
end;
for i:=1 to n do
write(a[i],' ');
<span>end.</span>
О! научился формулировать задачу. Уже хорошо.
program zadanie1;
var
max,num,a :byte;
begin
max:=0;
writeln('vvodite chisla');
repeat
readln(a);
if a*a>225 then
writeln('Slishkom bolshoe chislo')
else
if max<a then max:=a ;
until a=0;
readln;
writeln('max=',max);
end.
#include <iostream>
using namespace std;
int main()
{
int s, v;
cin >> s >> v;
cout << s / v;
return 0;
}
Бывают общего, а бывают специального.
Общего назначения, эт то, что используют все. Текстовые редакторы, браузеры, файловые менеджеры и т.п.