Регистрация
leha262006
05.03.2021 09:23
Информатика
Есть ответ 👍

Написать программу, которая вводит массив из n вещественных чисел, а затем заменяет в нём все элементы, превышающие данное число z, этим числом. вывести на экран полученный массив и количество замен. протестировать программу на следующих исходных данных: а) z=10 массив: 1,2 2,6 3 -4,5 11 10,2 3,2 87 -15 б) z=-2 массив: 0 -3,1 11 -7,9 -2,1 -1,9 4

101
339
Посмотреть ответы 2

Ответы на вопрос:

Элилия
Элилия
4,7(75 оценок)
//pascalabc.net 3.2 begin var a: =readarrreal('вводите: ', readinteger('n =')); var z: =readreal('z ='); var count: =0; for var i: =0 to length(a)-1 do if a[i]> z then begin a[i]: =z; count+=1; end; writeln ('кол-во замен: ', count); a.print; end.
Человекразумный0
Человекразумный0
4,7(70 оценок)
Var    n,i: integer; begin      readln(n);       for i: =1 to n do      if not(i mod 2 = 0) then writeln(i); end.

Популярно: Информатика