Const R=14; var i,k:integer; W:array[1..R] of longint;
begin Write('Введите число членов последовательности (1-',R,'): '); Readln(k); if (k<1) or (k>R) then Writeln('Вы ввели неверное значение') else begin Write('Члены последовательности: 1'); w[1]:=1; for i:=2 to k do begin w[i]:=5*w[i-1]; Write(', ',w[i]) end; Writeln end end.
Тестовое решение: Введите число членов последовательности (1-14): 14 Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
begin Writeln('Введите количество элементов в массиве (n<51): '); Readln(n); Writeln('Введите элементы массива'); s:=0; for i := 1 to n do begin Read(T[i]); if T[i]<0 then s := s + T[i] end; Writeln('Сумма отрицательных элементов массива равна ', s) end.
Тестовое решение: Введите количество элементов в массиве (n<51): 10 Введите элементы массива 5 -6 2 0 4 11 -8 0 1 -2 Сумма отрицательных элементов массива равна -16
M:=m+1
X:=x+1
X:=-5+7
2)
var
s:integer;
begin
s:=34;
write('Площадь треугольника равна',' ',s,'кв.см');
end.
3)
Read(m)
Read(m,y)