Значения двух массивов A и B с индексами от 1 до 100 задаются при следующего фрагмента программы:
var k,n,i,r:integer;
a,b:array [1..100] of integer;
begin
n:=100;
for i:= 1 to n do
A[i]:= (i-51)*(i-51);
for i:= 1 to n do begin
B[101-i]:=A[i];
end;
r:=0;
for i:= 1 to n do
if b[i]>=r then k:=i;
write (k);
end.
Какой элемент массива B будет наибольшим?
1) B[1]
2) B[26]
3) B[75]
4) B[100]
var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
begin
Read(t);
s:=s+t
end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.
Пример решения
Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4
#include <iostream>
int main() {
int n = 0, sum = 0, temp = 0;
std :: cin >> n;
for (int i = 0; i < n * n; i++) {
std :: cin >> temp;
sum += temp;
}
std :: cout << sum / 2;
return 0;
}