Тестовый вопрос Какое из приведенных имен удовлетворяет логическому условию Не ( последняя гласная ->первая буква согласная) и вторая буква согласная 1) Ирина 2)Артем 3)Степан 4)Мария
Const n = 10; var matrix : array [1..n] of array [1..n] of integer; i, j, max : integer; begin {формирование матрицы} for j := 1 to n do begin if j <= Trunc(n / 2) then {находим последний индекс для вставки 1} max := j else max := n - j + 1; for i := 1 to max do {заполняем линию единицами} begin matrix[j][i] := 1; matrix[j][n - i + 1] := 1; end; end; {вывод матрицы (если не нужно, удалите код)} for j := 1 to n do begin for i := 1 to n do write(matrix[j][i], ' '); writeln; end; end.
Var ars:array[1..50] of string; ark:array[1..50] of integer; s:string; i,n,k,j:integer; begin readln(n); k:=0; for i:=1 to n do begin; readln(ars[i]); for j:=1 to 4 do delete(ars[i],1,pos(' ',ars[i])); s:=ars[i]; if (s[1]='6') or (s[1]='7') or (s[1]='8') then begin; inc(k); ark[k]:=i; end; end; writeln(k); for i:=1 to k do writeln(ark[i]); end.
Пример ввода: 2 Петров Петр Петрович 10 6 2007 Иванов Иван Иванович 10 2 2007 Пример вывода: 1 1
n = 10;
var
matrix : array [1..n] of array [1..n] of integer;
i, j, max : integer;
begin
{формирование матрицы}
for j := 1 to n do
begin
if j <= Trunc(n / 2) then {находим последний индекс для вставки 1}
max := j
else
max := n - j + 1;
for i := 1 to max do {заполняем линию единицами}
begin
matrix[j][i] := 1;
matrix[j][n - i + 1] := 1;
end;
end;
{вывод матрицы (если не нужно, удалите код)}
for j := 1 to n do
begin
for i := 1 to n do
write(matrix[j][i], ' ');
writeln;
end;
end.