Помогите пожалуйста очень прошу ! по информатике ! Нужно срочно! Буду благодарна !...

Question

Помогите пожалуйста очень прошу ! по информатике !
Нужно срочно! Буду благодарна ! заранее спасибо!
1-Создать массив из 10 элементов целых чисел ,найди сумму элементов оканчивающихся на 3 !
2-Создать массив n элементов вещественных чисел ,удалить из массива 7 элемент
3-Дан массив из 5 элементов целых чисел ,найди минимальный элемент

Answer 1

1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.<br>

Comments

2)const N = 10;

var
a: array [1..N] of integer;
K,i: integer;

begin
for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln;

k:=7;

for i:=K to N-1 do
a[i] := a[i+1];

writeln('Тут типо удалил элемент ',K,':');
for
i:=1 to N-1 do
write(a[i],' ');
writeln;
end.