Нет индексного свойства по умолчанию для типа integer - вопрос №8445405 от drrrrrr2 11.05.2020 00:43

Question

Информатика: Нет индексного свойства по умолчанию для типа integer var c: integer; a: array[1..10] of integer; b: array[1..10] of integer; i,k: byte; begin readln(c); write( a[ ,i, ]= ); for i: =1 to 10 do begin a[i]: =random(21)-10; write(a[i], ); end; begin writeln( a[ ,i, ]= ,a[i]); readln (a[i]); write( b[ ,i, ]= ,b[i]); readln (b[i]); writeln( c[ ,i, ]= ,c[i]); readln (c[i]); for i: =1 to 10 do end; begin if (c[i] a) and (c[i] end; for i: =1 to n do write( кол-во элементов в диапазоне [ ,a, , ,b, ]: ,k);

drrrrrr2 · Answer

Varc: array[1..10] of integer;a,b,i,k:byte;beginfor i:=1 to 10 do beginc[i]:=random(21)-10;write(c[i], );end;writeln;Writeln( a, b: );Readln (a,b);k:=0;for i:=1 to 10 do  if (c[i] =a) and (c[i] =b) then k:=k+1;writeln( Кол-во элементов в диапазоне [ ,a, , ,b, ]: ,k);end.Пример:-3 6 2 -8 -6 5 6 2 5 -9a, b:0 5Кол-во элементов в диапазоне [0,5]: 4...