Дано целое число n и массив случайных чисел x[1..n]. все элементы массива , меньше двух,заменить нулями. кроме того, получить сумму и количество элементов , принадлежащих отрезку[3,7].
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var a:=ArrRandom(ReadInteger('n='),0,9); a.Println; var k:=0; var s:=0; for var i:=0 to a.Length-1 do begin if a[i]<2 then a[i]:=0; if a[i] in [3..7] then begin Inc(k); s+=a[i] end end; a.Println; Writeln('Сумма ',k,' элементов на интервале равна ',s) end.
Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
var i,z,y,x: integer; // объявление переменных begin // начало программы writeln('Введите числа: '); // Вывод сообщения readln(x,y); // Ввод чисел х и у с клавиатуры while i <> y do // Повторять цикл пока i не будет равно y begin // Вход в цикл z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х) i:=i+1; // Увеличиваем счетчик цикла на 1 end; // Выход из цикла write(z); // Вывод z (произведение х и у) end. // Конец программы
begin
var a:=ArrRandom(ReadInteger('n='),0,9);
a.Println;
var k:=0;
var s:=0;
for var i:=0 to a.Length-1 do begin
if a[i]<2 then a[i]:=0;
if a[i] in [3..7] then begin
Inc(k); s+=a[i]
end
end;
a.Println;
Writeln('Сумма ',k,' элементов на интервале равна ',s)
end.
Тестовое решение:
n= 15
5 7 6 7 8 9 0 7 9 7 6 1 0 0 8
5 7 6 7 8 9 0 7 9 7 6 0 0 0 8
Сумма 7 элементов на интервале равна 45