1. Bruce wishes he had more money so he could buy a new sweater.
2. I wish it were snowing now that it’s Christmas.
3. I wish I were taller so that I could be in the basketball team.
4. I wish you would stop watching television while I am talking to you.
5. I wish you wouldn't do that. It annoys me.
6. I wish the holidays would come so we could go off to the seaside.
7. I wish they wouldn't build that block of flats right in front of our window.
8. Of course Tom wishes he could come with us in Paris, but he has to stay here and work.
9. I wish we would go to the match on Saturday but we’re visiting my uncle instead.
10. I wish you had kept your mouth shut yesterday. Now Mary knows everything.
11. If only hadn't lost all my money. Now I'm broke.
12. Peter is always late. If only he turned up on time for a change!
Program matritsa;
Uses crt;
Var s:integer; {Переменная S - сумма}
m:array[1..6,1..4]of integer; {матрица}
i,j:byte; {Для использования циклов}
Begin clrscr; {Очистка экрана}
S:=0; {Обнуляем s}
For i:=1 to 6 do {проходит столбцы}
For j:=1 to 4 do {проходит строки}
m[i,j]:=random(101)-50; {присваивает случайное значение от -50 до 50}
For i:=1 to 6 do {проходит столбцы}
Begin {начало операторных скобок}
Writeln; {пропуск строки}
For j:=1 to 4 do {проходит строки}
Write(m[i,j]:4); {вывод значения}
End; {конец операторных скобок}
Writeln;
For i:=1 to 6 do {проходит столбцы}
For j:=1 to 4 do {проходит строки}
If m[i,j]<0 then {Проверка значения(меньше нуля?)}
S:=s+m[i,j]; {увеличивает сумму на значение данного элемента}
Writeln('Сумма отрицательных элементов матрицы =',s); {Вывод}
End.
