Var a: array [1..99] of integer;
i, p, n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('Произведение элементов массива = ', p);
<span>end.</span>
Требуемое значение можно вычислить по формуле вида:
=СУММЕСЛИМН(C2:C11;C2:C11;">100";C2:C11;"<200")
(в примере в ячейках диапазона C2:C11 записана стоимость товаров)
Const N = 21;
Var
A:array[1..N] of integer;
i,k:integer;
S:real;
Begin
randomize;
S:=0;
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(80)-44;
Write(A[i],' ');
if A[i]<=12 then
Begin
S:=S+A[i];
k:=k+1
End;
End;
WriteLn;
WriteLn('Sr = ',S/k)
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;
}
6. 7
7. http://spring.info/months/may.jpeg
(насколько знаю, в 7 всегда есть таблица)