1)Задан массив целых чисел случайным образом. Заменить все числа большие 7 на число 7. Вывести количество таких чисел. 2)Дан массив целых чисел А из 20 элементов, значения которого формируются случайным образом. Определить числ...
1)Задан массив целых чисел случайным образом. Заменить все числа большие 7 на число 7. Вывести количество таких чисел.
2)Дан массив целых чисел А из 20 элементов, значения которого формируются случайным образом. Определить число нулевых элементов и записать ненулевые в массив В.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
var k:=0;
for var i:=0 to a.Length-1 do
if a[i]>7 then begin a[i]:=7; Inc(k) end;
a.Println;
Writeln('Количество замен равно ',k);
// если нужно общее количество семерок, замените
// предыдущую строку следующей:
// Writeln('Количество семерок равно ',a.Where(x->x=7).Count);
end.
Тестовое решение
n= 15
10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2
7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2
Количество замен равно 6
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(20,-5,8); a.Println;
var b:=a.Where(x->x<>0).ToArray; b.Println;
Writeln('Количество нулей равно ',20-b.Count);
end.
Тестовое решение
-4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3
-4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3
Количество нулей равно 3
Не нашли ответ?
Похожие вопросы