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