1) Используя генератор случайных чисел, заполнить массив размерностью 8 элементов числами из интервала
[-10,+50]. Вывести список элементов массива
2) Заполнить массив размерностью 4 с клавиатуры целыми числами . Вывести список элементов массива
3) Заполнить массив размерностью 18 Ввод с формулы А(i)=i*i+4 . Вывести список элементов массива
=В$5+=$А8
Объяснение:
данная формула содержит смешанную ссылку
В6 =А$5+$А6
Надо скопировать в С8
B6-- C8 ( посмотри что изменилось)
буква была В стала С ( на одну позицию вперед +1)
цифра 6 изменилась на 8 ( на две позиции +2)
к формуле =А$5+$А6 применим эти изменения
но учтем что $ - это абсолютный адрес и он не будет меняться
=А$5
была А ( на одну позицию вперед) --- В
$5 при копировании не изменится
=В$5
$А6
при копировании $А ничего не происходит
6 на две позиции увеличиваем =8
=$А8
Тогда формула =А$5+$А6 приобретет вид =В$5+=$А8
mas = array [1..50] of integer;
var
x,y : mas;
s1,k1,s2,k2 : integer;
s,k : integer;
//Если вещественные, а не целые заменить на real(integer)
procedure ma (var x,y : mas);
var
i : integer;
begin
for i := 1 to 50 do
begin
x[i] := random(50);
y[i]:=random(75);
end;
end;
procedure sk (var s,k : integer; a : mas);
var
i : integer;
begin
s := 0; k := 0;
for i := 1 to 50 do
if a[i] > 0 then
begin
s := s + a[i];
k := k +1;
end;
end;
begin
randomize;
ma(x,y);
sk (s,k,x);
s1 := s; k1 := k;
sk (s,k,y);
s2 := s; k2 := k;
//вывод по желанию
end.