Не успеваю сделать это! , ! хотя бы часть! вопросы по программированию на языке паскаль* 1. что принято называть оператором? 2. с какого слова начинается раздел объявления данных? от какого слова оно образованно? 3. что обозначают слова integer и real? 4. какими служебными словами отмечаются начало и конец раздела операторов программы? что ставится в самом конце программы? 5. перечислите операторы ввода и вывода. 6. какой формат имеет арифметический оператор присваивания на паскале? 7. вставьте пропущенные слова: "несколько ветвлений в одном алгоритме могут быть и ". 8. запишите формат оператора ветвления. 9. что такое составной оператор. 10. что используется в сложных логических выражениях? 11. что такое сценарий работы программы? каким обязательно должен быть интерфейс? 12. что такое цикл? 13. запишите формат оператора цикла с предусловием в паскале. 14. что из себя представляет структура алгоритма евклида? !
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50);
Writeln('Исходный массив'); a.Println;
var se:=a.Where(x->x mod 3=0);
if se.Count=0 then
Writeln('В массиве нет элементов, кратных трем')
else begin
var b:=se.Max;
var i:=0;
while a[i]<>b do Inc(i);
if i=n-1 then Writeln('Максимальный элемент - последний')
else begin
Writeln('Результирующий массив');
a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println
end
end
end.
Тестовое решение:
n= 15
Исходный массив
-24 -38 15 -33 -40 -18 21 34 20 49 -19 29 29 38 -41
Результирующий массив
-24 -38 15 -33 -40 -18 21 213 20 49 -19 29 29 38 -41