1. на входе непустая последовательность натуральных чисел с нулем в конце. вывести min и среднее арифметическое. представить блок-схему и pascal-программу. 2. на входе последовательность вещественных чисел с нулем в конце. вывести разброс последовательности (разность между min и max). представить pascal-программу.

251

495

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

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

Quartz11

Информатика

4,7(75 оценок)

1)a: real; com : array [1..100000] of integer; beginn: =100000; for i: =1 to n do beginreal(com[i]); if com[i]=0 then n: =0; end; min: =com[1]; for i1: =2 to i do beginif min> com[i1] then min: =com[i1]; end; for i1: =1 to i do begina: =a+com[i1]; end; writeln('минимальное значение ',min,' среднее арифметическое ',a/i); end

6473089

Информатика

4,5(35 оценок)

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin println('*1*'); var a: =arrrandom(10,-99,99); a.println; var imin: =a.indexmin; if imin=a.length-1 then a: =a+arr(100) else a: =a[: imin+1]+arr(100)+a[imin+1: ]; a.println; println('*2*'); a: =arrrandom(10,-99,99); a.println; var imax: =a.indexmax; if imax=a.length-1 then a: =a[: imax] else a: =a[: imax]+a[imax+1: ]; a.println end. тестовое решение: *1* -52 -66 -56 55 -94 -53 28 -94 61 61 -52 -66 -56 55 -94 100 -53 28 -94 61 61 *2* 62 -80 91 -85 -59 -58 20 23 -91 53 62 -80 -85 -59 -58 20 23 -91 53