Предмет: Английский язык, автор: nelli110

Закончи предложение, вставив в них недостающие предлоги.

Приложения:

Ответы

Автор ответа: Lway
2

1. near

2. on

3. under

4. near

5. on

6. in

7. at

Автор ответа: Persefoni
2

Ответ:

1) near

2) in

3) under

4) at

5) on

6) in

7) at

Объяснение:

Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Математика, автор: mnsrtlbv
10(-с-49+3a) раскройте скобку
Дам 10 балов
И весь 2 вариант плз
5 лет назад
Предмет: Математика, автор: renatdostal
2+2=5?как скажите хочу 5 получит а не 4
5 лет назад
Предмет: Русский язык, автор: akhmetfarida1
Пж помогите умоляю вас
5 лет назад
Предмет: Литература, автор: андрей1555
рассказ на 60 страниц для первоклассника.
8 лет назад
Предмет: Информатика, автор: Dia99999999
Дан массив А(m), меньше или равно 20. Ввести на печать сумму элементов массива, Если она превосходит число 50, В противном случае вывести в печать исходный массив.

Написать программу , только прошу с интернета не брать, там программы не работают, свою программу я написала, но что-то выдаёт не так, помогите, пожалуйста.

Program mass5v;
Uses crt;
Const nmax=20;
Type mas=array[1..nmax] of integer;
Var
A: mas;
I,m,s:integer;
Am, con: text;
Begin
Clrscr;
Assign(Am,'Am.txt');
Assign(kon,'kon.txt');
Reset(Am);
Rewrite(kon);
Write('Введите размер массива m=');
Readln(m);
S:=0;
For I:=1 to m do
Begin
Read(Am, A[i]);
S:=s+A[i];
End;
Writeln;
Writeln(kon);
If s<=50 then
Begin
Writeln('Сумма элементов менее 50, вывод исходного массива);
For I:=1 to m do
Begin
Write('A[',i,']=',A[i],' ');
Write(kon,'A[',i,']=',A[i],' ');
End;
End
Else
Writeln('сумма элементов массива более 50 и равна: s=',s);
Close(Am);
Close(kon);
Readkey;
End.
8 лет назад