Помогите сделать 1 и 2 срочно
Приложения:
![](https://st.uroker.com/files/7a5/7a5e85213de83623fcecf4fef0b1e73d.jpg)
supernat83:
Тебе на каком языке программирования нужно это?
Ответы
Ответ дал:
1
Ответ:
pascal
Объяснение:
1)
var
i, n : integer;
a: array of integer;
begin
Write('Введите размер массива: ');
ReadLn(n);
SetLength(a, n);
WriteLn('Введите элементы массива:');
for i := 0 to n - 1 do
ReadLn(a[i]);
for i := 0 to n - 1 do
begin
a[i] := a[i] + 1;
write(a[i], ', ');
end;
end.
2)
const
n = 25;
var
i, s: integer;
a: array[0..n - 1] of integer;
begin
for i := 0 to n - 1 do
begin
a[i] := random(100) - 50;
Write(a[i], ', ');
if (a[i] > 0) and (a[i] < 10) then s := s + a[i];
end;
WriteLn;
WriteLn('Сумма положительных элементов, меньших 10, равна ', s);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад