PascalABC:
program ocenka; //название программы
var a:integer; //целочисленная переменная оценки
begin
writeln(a); //ввод (с клавиатуры) значения оценки
if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 -
// ругаем, иначе - хвалим)
end.
<span>В результате выполнения программы на экран выводится массив, состоящий из 10 элементов. Каждый элемент представляет собой число из диапазона от 0 до 45.
А также выводится сумма всех элементов сформированного массива</span>
Массив заполним случайными целыми от 0 до 20
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=arrrandom(15,0,20);
println(a);
var s:=0;
for var i:= 0 to 14 do
if (a[i]>10) and (a[i]<15) then s +=1;
println('таких чисел ',s);
end.
#include <iostream>#include <iomanip>#include <ctime>
using namespace std;
int main(){ setlocale(LC_ALL, "RUSSIAN"); const int N = 10; int arr[N]; int K, L, sum = 0, sumexcl = 0; srand(time(NULL)); for (int i = 0; i < N; i++) { arr[i] = rand() % 10; sum += arr[i]; } cout << "Введите K >> "; cin >> K; cout << "Введите L >> "; cin >> L; for (int i = 0; i < N; i++) { cout << arr[i] << " "; if((i>=K) && (i<=L)) sumexcl += arr[i]; } sum -= sumexcl; cout << "Результат: " << sum << endl; system("pause");}