#include "pch.h"
#include <iostream>
#include <clocale>
using namespace std;
int main() {
setlocale(LC_ALL, "");
int n, k, l;
cout << "Введите значение n: ";
cin >> n;
cout << "Введите значение k: ";
cin >> k;
cout << "Введите значение l: ";
cin >> l;
int *arr = new int[n];
cout << "Заполните массив: ";
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int sum = 0;
for (int i = k; i <= l; i++) {
sum += arr[i];
}
cout << "Сумма элементов массива с номерами от K до L включительно = " << sum << endl;
return 0;
}
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1
a.Println;
if a.Where(x->x>=0).Distinct.Count>1 then
Writeln('Есть отличающиеся элементы')
else Writeln('Все элементы равны')
end.
<u>Примеры</u>
Длина последовательности: 4
1 1 1 -1
Все элементы равны
Длина последовательности: 5
0 1 1 0 -1
Есть отличающиеся элементы
- Редактирование фотографий или видео - процесс улучшения, добавления или изменения чего-либо в фото или видео
- Редактирование текста - процесс изменения ранее написанного текста
В каждой области редактирования оперируется главный аргумент - это изменение чего-то, уже существующего.