Решить на basic. элементы двухмерного массива а размеров 9*9 с следующего фрагмента программы: for n=1 to 9 for m=1 to 9 a(n,m)=n+m+1 сколько элементов массива а будут принимать четные значения: 1) 36 2) 40 3) 41 4) 45
В первой строке массива четными будут элементы с индексами (1,2); (1,4); (1,6); (1,8) - всего 4 элемента. Во второй строке массива четными будут элементы с индексами (2,1); (2,3); (2,5); (2,7); (2,9) - всего 5 элементов. Строки 3, 5, 7 и 9 по количеству четных элементов аналогичны первой строке, а строки 4, 6 и 8 - второй строке. Таким образом, количество четных элементов массива А = 5*4+4*5 = 40
Program zadacha3; var V, Vo,a ,b, t, c, H: integer; begin writeln('моя программа вычисляет скорость при равноускоренном движении'); writeln('введите начальную скорость'); readln(a); writeln('введите ускорение'); readln(a); writeln('введите время'); readln(t); writeln('введите шаг'); readln(H); for b:=t to c do begin t:=t+H; V:=Vo+a*t; end; writeln('скорость равна V:= ',V); end.
После эндом на закрытии цикла не стояло точки с запятой, и где у тебя написано в третей строчке снизу 7V, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался. И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла
1) uses crt; var a:array [1..15] of integer; i,k:integer; begin randomize; k:=0; for i:=1 to 15 do begin a[i]:=random(10)-3; if (a[i]<0) then inc(k); write (a[i],' '); end; writeln; writeln (k/15*100,'%'); end.
2) uses crt; var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(30); write (a[i],' '); end; writeln; for i:=1 to 20 do if (a[i] mod 10 = 3) then write (a[i],' '); end.
3) uses crt; var a:array [1..20] of integer; i:integer; k:longint; begin randomize; k:=1; for i:=1 to 20 do begin a[i]:=random(30); write (a[i],' '); if (a[i]>9) and (a[i]<100) then k:=k*a[i]; end; writeln; writeln (k); end.
4) uses crt; var a:array [1..30] of integer; i:integer; flag:boolean; begin randomize; for i:=1 to 30 do begin a[i]:=random(30); write (a[i],' '); end; writeln; flag:=true; for i:=1 to 29 do if (a[i]>a[i+1]) then begin flag:=false; break; end; writeln (flag); end.
Во второй строке массива четными будут элементы с индексами (2,1); (2,3); (2,5); (2,7); (2,9) - всего 5 элементов.
Строки 3, 5, 7 и 9 по количеству четных элементов аналогичны первой строке, а строки 4, 6 и 8 - второй строке.
Таким образом, количество четных элементов массива А = 5*4+4*5 = 40