program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
1) Автомобиль приехал по трассе S километров за t часов. Написать программу, которая определит среднюю скорость его движения. S, t - веществ. числа, вводятся с клавиатуры. Протокол работы программы должен выглядеть примерно так:
ВВедите расстояние(км.)-120
Введите время движения(час.)-1.2
Автомобиль двигался со скоростью 100 км/час[/B]
2)Напишите программу для обмена значениями двух целых переменных. Дополнительные переменные использовать нельзя. Если вы используете переменные X, Y, то других переменных в программе быть не должно.. протокол программы должен быть таким:
ВВедите два целых числа: 3 -5
на входе: Х=3, У=-5
на выходе Х=-5 ,У=3
3) Напишите программу циклического сдвига трех целых переменных по схеме X-> Y, Y-> Z, Z-> X..
В программе может быть использована одна дополнительная переменная. Протокол работы :
Введите три целых числа: 3 -5 7
На входе х=3, у=-5, z=7
На выходе х=7, у=3, z=-5