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

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.