Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
1)
const
handsfree = false;
nmax = 50;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 1 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 1 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
sum := 0;
for i := 1 to n do
sum := sum + sqr(a[i]);
writeln('L = ', sqrt(sum));
end.
2)
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.
Ответ:
Объяснение:
#include<stdio.h>
#include<math.h>
#include<locale.h>
main()
{
setlocale(LC_ALL,"rus");
int i,n;
float x,sum=0;
printf("Введите сколько раз выполнится цикл ");
scanf("%d",&n);
for(i=1;i<=n;i++)
{
x=((6*i)-1)/sqrt(2);
sum=sum+x;
}
printf("Сумма = %.3f",sum);
}
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
В первом случае мышь - это животное, в другом случае мышь - это координатное устройство ввода для управления курсором и отдачи различных команд компьютеру.
