Домашние задания: Другие предметы

помогите решить задачи по информатике

1.Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20,50]. Найти сумму элементов массива. 2.Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20,50] Заменить элемент, кратный 5, нулем. Найти сумму элементов массива. 3.Дан массив целых чисел, состоящий из 20 элементов, заполненный случайным образом. Найти сумму нечетных элементов массива. 4.Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20,50] Найти сумму отрицательных элементов массива. 5.Дан массив целых чисел, состоящий из 20 элементов, заполненный случайным образом.. Найти сумму четных элементов массива. 6.Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20, 60]. Найти сумму отрицательных элементов массива. 7.Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20, 60]. Найти сумму положительных элементов массива. 8.Дан массив целых чисел (n=25), заполненный по правилу чисел Фибоначчи. Найти сумму четных элементов массива. 9.Дан массив целых чисел, состоящий из 20 элементов, заполненный случайным образом. Минимальный элемент заменить нулем. 10.Дан массив целых чисел, состоящий из 20 элементов, заполненный случайным образом. Максимальный и минимальный элемент заменить нулем. 11.Дан массив целых чисел (n=25), заполненный по правилу чисел Фибоначчи. Найти сумму элементов массива. Умножить все элементы, кратные 3, на пятый элемент массива. 12.Дан массив целых чисел, состоящий из 30 элементов. Заполнить его случайным образом. Найти сумму положительных элементов; 13.Дан массив целых чисел, состоящий из 30 элементов. Заполнить его случайным образом. Найти сумму отрицательных элементов;
ВК
Владимир Кучеренко
237
1)Const
n = 15;
Flag = 111;

type
Mas = array[1..n] of integer;

procedure ShiftLeft(var A: Mas; nPos: integer);
// Элементы массива A, начиная с номера nPos, сдвигаются на один к началу массива
// Последний элемент массива заносится значением 111
var
i: integer;
begin
for i := nPos to n - 1 do
A[i] := A[i + 1];
A[n] := Flag
end;
2)procedure ShiftRight(var A: Mas; nPos: integer);
// Элементы массива A, начиная с номера nPos, сдвигаются на один к концу массива
// Последний элемент массива теряется, элемент с номером nPos заносится значением 111
var
i: integer;
begin
for i := n downto nPos + 1 do
A[i] := A[i - 1];
A[nPos] := Flag
end;
3)
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
const n=20;
var b:array[1..n] of integer;
i,s,a,k:integer;
begin
s:=0;
a:=StrToInt(Edit1.Text);
label2.Caption:='';
k:=StrToInt(Edit2.Text);
for i:=1 to n do
b[i]:=StrToInt(StringGrid1.Cells[i-1,0]); //заполнение массива

for i:=1 to n do
if b[i] mod 2<>0 then
begin
s:=s+b[i]; // подсчет суммы нечетных эл-в
Label1.Caption:='сумма нечетных эл-в'+IntToStr(s);
end;

for i:=1 to n do
if b[i]>a then Label2.Caption:=Label2.Caption+IntToStr(i)+' '; //выводим номера

for i:=1 to n do
if (b[i]>0) and (b[i] mod 2=0) then Label3.Caption:='Элементы имеются'
else Label3.Caption:='элементы отсутствуют';
end;

end.
Исходный массив
-2 -5 43 12 13 5 -7 9 27 5 47 45 28 34 21
После удаления элементов, содержащих цифру 5
-2 43 12 13 -7 9 27 47 28 34 21 111 111 111 111
Введите значение k
222
После вставки значения k
222 222 -2 43 12 13 222 -7 222 9 27 47 28 34 21
После обмена местами пары элементов
-7 222 -2 43 12 13 222 222 222 9 27 47 28 34 21
Любовь Максимова
Любовь Максимова
337
Лучший ответ
задачи все элементарные, могу помочь сделать одну, остальные сама. Очевидно, эти варианты на весь класс.
Паскаль подойдет?
Наталья Гостеева
Наталья Гостеева
95 932
как тебе помочь сделать эту домашку? ? написать программы?
и на чем написать бэйсик или паскаль?
ЕК
Ерлан Кайназаров
472

Похожие вопросы