Program p1;
uses crt;
var a:array[1..11] of integer;
i,p,s:integer;
begin
for i:=1 to 11 do begin
a[i]:=random(30)-10;
write(a[i]:4);
end;
p:=1;
s:=0;
for i:=1 to 11 do begin
If a[i]>0 then begin
p:=p*a[i];
end;
If a[i]<0 then
s:=s+a[i];
end;
writeln;
writeln('Произведение :',p);
writeln('Сумма :',s);
end.
весы калькулятор и т.д что может помочь в сложных вычислениях
Бутер
1. Взять доску
2. Взять колбасу
3. Отрезать два кругляша
4. Взять сыр
5. Отрезать один ломтик
6. Взять хлеб
7. Взять масло
8. Намазать масло на хлеб
9. Положить на хлеб с маслом колбаску
10. Положить на хлеб с маслом и колбаской сыр
11. Положить на хлеб с маслом, колбаской и сыром ещё одну колбаску
12. Пожелать себе бон аппети))
1)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
2)
program test;
var number, temp: integer;
begin
write('Enter the number: ');
readln(number);
temp:=number mod 10;
writeln(temp, '^2=', temp*temp);
readln;
end.