//1 var a: array [1..10] of integer; i: integer; begin randomize; write('исходный массив: '); for i : = 1 to 10 do begin a[i] : = random(81)-40; write(a[i], ' '); end; writeln; write('измененный массив: '); for i : = 1 to 10 do begin if i mod 2 = 0 then a[i] : = sqr(a[i]) else a[i] : = sqr(i); write(a[i], ' '); end; end. //2 var a: array [1..10] of real; i: integer; begin randomize; write('исходный массив: '); for i : = 1 to 10 do begin a[i] : = random(41)-20; write(a[i], ' '); end; writeln; write('измененный массив: '); for i : = 1 to 10 do begin if a[i] < 0 then a[i] : = sqr(a[i]); if a[i] > 0 then a[i] : = sqrt(a[i]); write(a[i]: 0: 2, ' '); end; end. //3 var a: array [1..200] of real; i, n: byte; sum: real; begin write('введите n = '); readln(n); sum : = 0; for i : = 1 to n do begin write('з/п за ', i ,' месяц = '); readln(a[i]); sum : = sum + a[i]; end; writeln('общий доход = ', sum: 0: 2); end.
Zeegofer
29.05.2020
Program psck; var count, comp, num : integer; begin read(count); comp: =1; while count> 0 do begin count: =count-1; read(num); if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4) then comp: =comp*num; end; write('произведение чисел - ',comp); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Программа с++ написать программу, которая удаляет начальные пробелы из введенное с клавиатуры строки.