Program sum;
uses Crt;
Var i: integer;
sum, p, sr : real;
a : array [1..25] of real;
begin
Clrscr;
For i:=1 to 25 do
begin
write ('a[',i,']=');
readln(a[i]);
end;
sum:=0;
For i:=1 to 25 do begin
if a[i]>0 then sum:=sum+a[i];
end;
sr:=sum/25;
For i:=1 to 25 do begin
if a[i]<0 then p:=p*a[i];
end;
Writeln ('Sum=',sum:5:2);
Writeln ('p=',p:5:2);
Writeln ('Sr=',sr:5:2);
readln;
end.
Программа на языке С++
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
float t;
cout << "Программа для определения вида осадков." << '\n' << "Введите температуру: ";
cin >> t;
while (t==0) {
cout << "Введите температуру, не равную 0: " << '\n';
cin >> t;
}
if (t>0) {
cout << "На улице идет дождь";
} else {
cout << "На улице идет снег";
}
return 0;
}
Ответ:
k = int(input("Введите количество карандашей (< 32000): "))
a = int(k / 13)
print("целых коробок: " )
print(a)
b = k - a*13
print("карандашей без коробки: ")
print(b)
Объяснение: