Задача №2
Одновимірний масив |
|
|
Умова |
Мовоюпрограмування Паскаль (з використанням масивів) зробити програму, котра повинна спочатку запропонувати користувачеві (в текстовій формі, на моніторі) задати 7 цілих чисел (зі значеннями від -99 до 99 включно) і обов’язково через Ентер, після чого програма повинна вивести в рядок для перевірки задані 7 чисел, а нижче вивести результати математичного аналізу всіх чисел масиву, зокрема щодо: мін, мах, сер, кількість чисел в масиві, сума всіх значень елементів масиву.
|
program z2;
{opsk-21, Lypnyk}
Var mas:array[1..7] of integer;
i, max, min, sum, dob: integer;
var
sear,segem:real;
begin
writeln('Z#2');
writeln('{opsk-21, Lypnyk}' );
writeln('zaday 7 cilih chicel[-99..99] cherez ENTER:');
writeln('vi wveli');
for i:=1 to 7 do
readln(mas[i]);
writeln('vi veli');
for i:=1 to 7 do
write (mas[i],' ');
max:=mas[i];
for i:=1 to 6 do
begin
if mas[i+1]>max then max:=mas[i+1];
end;
writeln;
writeln('max=' ,max);
min:=mas[i];
for i:=1 to 6 do
begin
if mas[i+1]<min then min:=mas[i];
end;
writeln ('min=' ,min);
sum:=0;
dob:=1;
for i:=1 to 7 do
sum:=sum+mas[i];
for i:=1 to 7 do
dob:=dob*mas[i];
writeln('suma=' ,sum);
writeln('dobutok=' ,dob);
sear:=sum/7;
segem:=sqrt (dob);
writeln('seredne arifmetichne=' ,sear);
writeln('seredne geometrichne=' ,segem);
end.
Умова |
Мовою програмування Паскаль (з обов’язковим використанням масивів) зробити програму, котра повинна спочатку запропонувати користувачу задати кількість цілих чисел (від 2 до 15), після дозволенної відповіді (вхідний контроль діапазону значення повинен вимагати повторне введення для кількості значення тільки від 2 до 15) програма пропонує задати (обов’язково через Ентер) зазначену кількість цілих чисел (зі значенням від -99 до 99 включно); після цього програма повинна вивести в рядок (для перевірки) зазначену вище кількість заданих чисел, а нижче вивести результати математичного аналізу всіх чисел масиву, зокрема щодо: мін, мах, сер, кількість чисел в масиві, сума всіх значень елементів масиву; після всього програма пропонує користувачу обрати або повернення до початку для повторення з іншими значеннями масиву (вибір повтору повинен підтверджуватися тільки через Ентер), або закінчення роботи з програмою (наприклад for REPEAT press ENTER; for EXIT press any key and ENTER). |