Язык не написан, значит могу написать на любом? Вот тебе JavaScript ;D
var arr = [], N, K, L, sum = 0; // (1 <= K <= L <= N)
N = Number(prompt('Введите размер массива (N)'));
K = Number(prompt('Введите K'));
L = Number(prompt('Введите L'));
for (let i = 0; i < N; i++) {
arr[i] = Math.round(Math.random()*10);
if (K <= i && L >= i) sum += arr[i];
}
console.log(`В массиве, размерностью ${N}, состоящем из чисел [${arr}], сумма элементов с позиции ${K} до ${L} (включительно), равна ${sum}`);
// Или alert(text);
Лог программы:
Введите размер массива (N): 15
Введите K: 3
Введите L: 12
В массиве, размерностью 15, состоящем из чисел [2,3,8,5,6,9,7,8,8,5,4,10,7,6,5], сумма элементов с позиции 3 до 12 (включительно), равна 69
Var x, b, a, c :real;beginread(a, b, c);x:= 1.2;x:= b + -sqrt(sqr(b))- 4*a*c/2*a;writeln(x);end.
a) значение - случайное число из [-50;50]
б) значение равно индексу, например a[6]=6
в) значение - нечетное число
ну или както так
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
1 байт=8 бит
1Кбайт=1024байт
1Мбайт=1024Кбайт
1Гбайт=1024Мбайт
Вес твоего сообщения 61 байт. 61*8=488битов